#!/usr/bin/perl

use strict;
use warnings;

my @array = qw(hallo welt);
warn ">>$#ARGV<<";

if( $#ARGV == -1 || (!grep{ $ARGV[0] eq $_} @array )) {
    warn "fehler";
}
else{
    warn "alles ok!";
}