#!/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!";
}

C:\>argv.pl
>>-1<< at C:\argv.pl line 7.
fehler

C:\>argv.pl hall
>>0<< at C:\argv.pl line 7.
fehler

C:\>argv.pl hallo
>>0<< at C:\argv.pl line 7.
alles ok!

C:\>

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

my $auswahl=qx{ls /Verzeichnis/ | /egrep '^[a-zA-z]+[^\.][0-9]+\$'};
my @array=split(/ /,$auswahl);

if...

use Data::Dumper;
$Data::Dumper::Useqq = 1; # Danke pq
print Dumper \@array;

Name "Data::Dumper::useqq" used only once: possible typo at skript.pl line 11.
$VAR1 = [
          'wert1
wert2
wert3
'
        ];

 my @array=split(/\s+/,$auswahl);