Select Code to Download

test2(1.00.000);

test2("1.00.000");

sub test2 {
    my ($var2) = @_;
...
    return ("Three")  if ($var2 == /^3/ );
    return undef;
}

sub test2 {
    my ($var2) = @_;
...
    return ("Three")  if ($var2 =~ /^3/ );
    return undef;
}

sub test2 {
    my $var2 = substr shift, 0, 1;
...
    return ("Three")  if $var2 == 3 ;
    return undef;
}

use strict;
use warnings;
...
    return $translation[(substr shift, 0, 1)];
}
print test2("1.00.000");

use strict;
use warnings;
...
    test_3 => sub {test3("3.01.000")},
    }
)

$ perl test_if.pl
            Rate test_1 test_2 test_3
test_1 1294050/s     --   -11%   -51%
test_2 1451608/s    12%     --   -45%
test_3 2642856/s   104%    82%     --