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