getopts('A:E:G:Z:', \%opts);
my @werte = values %opts;

print "\n\tWert 0: "   .$werte[0] ." Wert1: " .$werte[1] ." Wert2: " .$werte[2] ." Wert3: " .$werte[3];