my @a1 = qw( a b c );

change_array( \@a1 );

print "@a1\n";

sub change_array {
    my ($a1) = @_;

    $a1->[0] = "f";
}