>>729
X が起きたのが遇数回か奇数回なのかを状態変数に持たせる。
(下のリストでは $state がそれにあたる。)
同じ入力で、動作を次々変えたいときの常套手段。

my $state = 0;
for (;;) {
　#...

　if (X 発生) {
　　if ($state == 0) {
　　　A;
　　　$state = 1;
　　} elsif ($state == 1) {
　　　B;
　　　$state = 0;
　　}
　}
　# ...
}