for my $var ( undef, 1 .. 10, 'fred' ) {
	goto 'CASE' . do{ local $^W; $var + 0 };

    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";
    CASE0:
}