my @a1 = (qw/a b c d/);
print 'a1 : ', Dumper \@a1;

for (@a1) {
    $_ = 'aa' if $_ eq 'a';
}
print 'a1 : ', Dumper \@a1;