#! perl -sw
use strict;

my $var = 7;

goto 'CASE'.($var+0); die "$var out of range";

CASE10: print "a";
CASE9: print "b";
CASE8: print "c";
CASE7: print "d";
CASE6: print "e";
CASE5: print "f";
CASE4: print "g";
CASE3: print "h";
CASE2: print "i";
CASE1: print "j";

print "\n";

__END__
P:\test>junk
defghij