for (...) {
   push @a, $_;
}