eval { goto 'L'.($var+0) }; die "$var out of range";
 
L10: print "a";
L9: print "b";
L8: print "c";
L7: print "d";
L6: print "e";
L5: print "f";
L4: print "g";
L3: print "h";
L2: print "i";
L1: print "j";
 
print "\n";