Here's another ugly but working way to do it:

my %switch;
@switch{1..10} = (qw(L1 L2 L3 L4 L5 L6 L7 L8 L9 L10));

goto END_SWITCH unless exists $switch{$var};
goto $switch{$var};
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" ;

END_SWITCH: # whatever
[download]