my @results;
while (...) {
   ...
   push @results, ...;
}