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