my %lines;
while (<IN>) {
    chomp;
    my $ID = (split /\t/)[2];
    $ocurrences{$ID}++;
    $lines{$ID} = $_;
}