if (@dbrec) {
            if ( @dbrec > 6 ) {
                $_ ||= '' for ( @dbrec );
                print join( '|', @drec[0..13], @dbrec[0..7] ), "\n";
            }
            delete $list{$key};
        }