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