for (0..@alert) {
  next if (grep /$process[$_]/, @ptable);
  $alerts{$alert[$_]} .= "\n$message[$_]";
}