undef = <$trf> for 1 .. 4;

        my %hash = (); #initiate empty hash

        while( my $line=<$trf>)
            {
            chomp $line;
            my @line=split("\t",$line);