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;
    }
  }
}