my %count;
$count{$_}++ foreach (@ServicesOnMachine, @ServiceCheckList);
my @intersection = grep{$count{$_} >=2} keys %count;
print "@intersection\n";
#prints: sendmail httpd ypbind