&mumble(\@foo);

##</code><code>##

sub mumble {
    my ($bar) = @_;

    ...
    $bar->[1]++;   #increments second member of array
}