#!perl -w

use strict;

my @serv = qw(foo bar baz);

for my $arg (@ARGV) {
    # exact match (foo/foo match, but not foo/Foo)
    my $valid_arg = grep { $arg eq $_ } @serv;

    # case insensitive (foo/foo match, so do foo/Foo)
    # my $valid_arg = grep { lc($arg) eq $_ } @serv;

    die("Invalid argument '$arg'.\n") unless ($valid_arg);
}