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, $_;
}

##</code><code>##

my $data  = join('',<DATA>);
my @chunk = split(/^\d/m, $data);

foreach (@chunk) { process_array( split(/\n/s, $_) ) }