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


##</code><code>##

open MERGE,">","$folder/merge" 
        or die "Could not open $folder/merge : $!";