while( ... ) {
   my %data = ();
   if(...) {
      $all{counter} = \%data;  
   }
}