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

##</code><code>##

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

##</code><code>##

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