foreach my $foo (@bar) {
  # Do something
}