sub array_fn {
    my @array = @{+shift};
    # ...
}
array_fn(\@foo);

##</code><code>##

sub array_fn (\@) {
    my $array = shift;
    # do things to @$array
}
array_fn(@foo);