while($line=<TRF>)
    {
#          @line=split("\t",$trftable); # error 
          @line=split("\t",$line);