my @a1 = qw( a b c );

change_array( @a1 );

print "@a1\n";

sub change_array {
    $_[0] = "f";
}