You missed the $var=undef and $var<=0 cases.

goto (undef, 'CASE01' .. 'CASE10')[abs($var) == $var ? $var+0 : 0]||"d
+efault";

CASE10: print "a";
CASE09: print "b";
CASE08: print "c";
CASE07: print "d";
CASE06: print "e";
CASE05: print "f";
CASE04: print "g";
CASE03: print "h";
CASE02: print "i";
CASE01: print "j";
        print "\n";
default:
[download]