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