sub concat 
{
  my @stringarray = @_;

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

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

##</code><code>##

$concatstring = &concat ($handle, $hostname, $maintenance, $location, $buiscat);