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