Select Code to Download

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

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

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