perl: Korrektur eine fehlerhaften Array-Abfrage