unless( grep $ARGV[0] eq $_, @arr ){ print "nicht enthalten\n"; } else{ print "enthalten\n"; }