use strict;
use Benchmark;

timethese( 50000,{
 switch => sub {
sub switch{ eval{ goto "case_$_[0]" } or goto default; }

for my $expr ( 1 .. 10, 'fred' ) {
        switch( $expr ); {
                case_1:         print STDERR '1'; last;
                case_2:            print STDERR '2'; last;
                case_3:         print STDERR '3'; last;
                case_4:         print STDERR '4'; last;
                case_5:         ;
                case_6:         print STDERR '5 or 6'; last;
                case_fred:       print STDERR 'fred'; last;
                default:          print STDERR "default";
        }
}
},

 if => sub {
for my $expr ( 1 .. 10, 'fred' ) {
        if ($expr eq '1') {print STDERR '1'}
        elsif ($expr eq '2') {print STDERR '2'}
        elsif ($expr eq '3') {print STDERR '3'}
        elsif ($expr eq '4') {print STDERR '4'}
        elsif ($expr eq '5' or $expr eq '6') {print STDERR '5 or 6'}
        elsif ($expr eq 'fred') {print STDERR 'fred'}
        else {print STDERR "default"}
}
},
} );