my $concatstring = join "\t", $string1, $string2, $string3;