for (my $s=$MAXCYCLE; $s--; $s >= 0 ) {