foreach (@array) {
  my $var = $_;
  # ...
}