#!/usr/bin/perl -w

my %NC;

open IN, "list-heads-withoutplasmid.txt";
    while (<IN>) {
        chomp;
        my @row = split(/\|/,$_);
        $NC{$row[1]}=$row[3];
    }
close IN;

open IN, "gi_taxid_nucl.dmp";
    while (<IN>) {
        chomp;
        if ($_ =~ /(\S+)\s+(\S+)/) {
            if (exists $NC{$1}) {
                #print "$NC{$1};$1;$2\n";
            }
        }
    }
close IN;
