my @ar ;
    foreach my $item (@ar) {
      ...
    }