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

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