Select Code to Download

use strict;
use Benchmark qw(cmpthese);
...
    "skp" => q[ sub{ my $x = $_[1]         }->($a1, $b1) ],
    "var" => q[ sub{ my ($unused, $x) = @_;}->($a1, $b1) ],
    };

         Rate  var  und  skp
var 1694915/s   -- -27% -41%
und 2325581/s  37%   -- -19%
skp 2857143/s  69%  23%   --

=== base/perl5.00307    5.00307  i686-linux
Missing $ on loop variable at /media/Tux/perls/lib/strict.pm line 90.
...
var 2380952/s   -- -18% -30%
und 2898551/s  22%   -- -14%
skp 3389831/s  42%  17%   --