for ( $var ) {
    my $go;
    ($go || $_ == 10) and $go++, print "a";
    ($go || $_ == 9 ) and $go++, print "b";
    ($go || $_ == 8 ) and $go++, print "c";
    ($go || $_ == 7 ) and $go++, print "d";
    ($go || $_ == 6 ) and $go++, print "e";
    ($go || $_ == 5 ) and $go++, print "f";
    ($go || $_ == 4 ) and $go++, print "g";
    ($go || $_ == 3 ) and $go++, print "h";
    ($go || $_ == 2 ) and $go++, print "i";
    ($go || $_ == 1 ) and $go++, print "j";
}