Select Code to Download

foreach my $service (@ServiceCheckList) {
  if (grep($service, @ServicesOnMachine)) {
    print "$service matches\n";
  }
}

foreach my $service (@ServiceCheckList) {
  if (grep(/^$service$/, @ServicesOnMachine)) {
    print "$service matches\n";
  }
}