foreach my $i (...list...) {
   ...
}