Select Code to Download

for ( my $i = 0; $i <= $#alert; $i++ ) {
  unless(grep /$process[$i]/ , @ptable) {
   $alerts{"$alert[$i]"­} .= "\n$message[$i]";
  }
}

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