foreach my $foo (@bar) { $foo .= 'ack' ; ... } ;