foreach my $foo (@ary) {
  . . .
}