open(TAIL, "tail -f /var/log/messages |") or die "etc";
while (<TAIL>)
{
  if(/type1/) { print SUBLOG1 $_; }
  if(/type2/) { print SUBLOG2 $_; }
  # etc
}
##</code><code>##

my $sel = IO::Select->new();
for(iterate through obj array with filenames)
{
  open($handle, "tail -f $obj_file |");
  $sel->add($handle);
}

while(@ready = $sel->can_read)
{
  foreach my $fh (@ready)
  {
    $line = <$fh>;
    if($line =~ /keyword/)
    {
      print REDUCEDLOG $line;
    }
  }
}