Overhead of a wrapper function in Perl

gistfile1.pl

use strict;
use warnings;
use Benchmark qw(cmpthese);

sub match   { $_[0] =~ $_[1] }
sub wrapper { match(@_) }
sub wrapper_alias_args { &match }

my @args = ("foo", qr/bar/);

cmpthese -3, {
    match              => sub { match(@args) },
    wrapper            => sub { wrapper(@args) },
    wrapper_alias_args => sub { wrapper_alias_args(@args) },
};
__END__
                        Rate         wrapper wrapper_alias_args            match
wrapper            1124156/s              --                -6%             -18%
wrapper_alias_args 1199177/s              7%                 --             -12%
match              1363269/s             21%                14%               --

Wow, changing $args[1] from a string to a regex chops performance in half. Weird. I guess it's more expensive to copy?