while (1) {
   my @array;
   ...
   Dumper(\@array)
}