my %hash = (); #initiate empty hash

        while ( my $line = <$trf> )
            {
            next if $. < 5; # skip first four lines
            chomp $line;
            my @line = split /\t/, $line;