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

##</code><code>##

my $concatstring =
    join "\t",
    map length() < 8 ? "$_\t" : $_,
    $string1, $string2, $string3;