foreach my $foo (@array) {... $foo ...}
map {my $foo = $_; ... $foo ...} @array