while ( countdown $limit => my $a ) { .... }