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