my $switch = sub { eval{ goto "case_$_[0]" } or goto default; };

for my $expr ( 1 .. 10, 'fred' ) {
        $switch->( $expr ); {