Select Code to Download

use strict;
use warnings;
...
        last unless  $a--;
    }
}

1 at d:/Users/lanx/pm/state_loop.pl line 7.

...
2:1
1:1
0:1