fast(@data);
sub fast {
    my $x = $_[0];
}

##</code><code>##

slow(@data);
sub slow {
    my @arr = @_;
    my $x = $arr[0];
}

##</code><code>##

fast(\@data);
sub fast {
    my $arr = $_[0];
    my $x = $arr->[0];
}