Select Code to Download

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

...
            chomp $line;
            my @line=split("\t",$line);

        my %hash = (); #initiate empty hash

...
            chomp $line;
            my @line = split /\t/, $line;