my %allids=();
my $quo='';
while (my $line=<INP>) {
  if ($line=~ ... ) {
    $allids{substr($quo->[0],8,6)}= $quo if $quo;
    $quo=[$line];
  }
  else {
    push @$quo, $line;
  }
}