my @w = split(/\t/,$_);

##</code><code>##

if ( !$seen{$w[0].$w[1]}++ ) {