sub arrayManip {
    our @a;
    local *a = shift;
    # do stuff with @a
}

my @array = (...);

arrayManip( \@array );