my @array;
while (<DATA>) { last if /^d/ } #discard until the first match
while (<DATA>) {
   if ( @array and /^d/ ) {
      process_array( @array );
      undef @array;
      next;
   }
   push @array, $_;
}