my %seen = map { $_ => 1 } @serv;
foreach $ARGV (@ARGV) {
    if (!$seen{$ARGV}) {
        warn "$ARGV not found\n"
        next;
    }
    # Whatever you want to do when found
}