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