Select Code to Download

&mumble(\@foo);

sub mumble {
    my ($bar) = @_;
...
    ...
    $bar->[1]++;   #increments second member of array
}