unless ( defined $ARGV[0] && grep { $ARGV[0] eq $_ } @array ) { usage(); } # Hier gehts dann richtig weiter