use strict;
use warnings;
use feature qw'say state';

until ( (state $two = 2)[0] == 2*2*2 ) {

        state $four = 16;
        last unless $four;
        say --$four =~ /\d{2}/ ? "$four" : '0'.$four, ': ',$two++ ;

# my my ? uncomment 
#      state $FOUR=64; 
#      $FOUR >= 48 and print '$FOUR: ',$FOUR;
#      last unless $FOUR--;  

}
say 'owt: ',my $two=2;