sub bla {
   s/a/u/g for @_;
}

my @ar=qw/faa bar baz/;
bla(@ar);
print "@ar";
__END__
fuu bur buz