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

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