for my $key (keys %coll_key_hash) {
  foreach my $rec (@recs_read) {
    my @fields = split(/\|/, $rec);
    if ($fields[0] eq '010') {
      if ($fields[3] =~ $key) {
        $print_record = 1;
        if  ($key ne $prev_key) {
          $prev_key = $key;
          print_record ("CUST-BEG|$seq\n",' ');
        }
        print_record ("$rec\n",'c');
      }
      else {
          $print_record = 0;
      }
    }
    else {
      if ($print_record) {
          print_record ("$rec\n",'c');
      }
    }
  }
}