sub concat 
{
  my @stringarray = @_;

  foreach $_ (@stringarray)
  {
    $_= "TOOLONG" if length () > 15; 
    $_ .= "\t" if length () < 8; 
  }

  return (join "\t", @stringarray); 
}