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