@array = ();

##</code><code>##

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