LOOP STARTS HERE

my %unique =();
grep {$unique{$_} = undef} split(/\t/, $myLine); 
$myLine = join("\t", keys %unique);

LOOP ENDS HERE