use strict;
use Benchmark qw(cmpthese);

my $a1 = "a" x 1e6;
my $b1 = 12345;
cmpthese 2000000, {
    "und" => q[ sub{ my (undef, $x)   = @_ }->($a1, $b1) ],
    "skp" => q[ sub{ my $x = $_[1]         }->($a1, $b1) ],
    "var" => q[ sub{ my ($unused, $x) = @_;}->($a1, $b1) ],
    };