my @a;
while (...)
   ...
   push @a, ...;
}