2x @ an sub?

[perl_neuling($danke);]

Vielen Dank.
Habe den Quellcode begonnen umzuschreiben. Allein diese Referenzen haben ihn von 403 auf 224 Zeilen gekürzt - und v.a. von Redundanzen befreit!
die perl_neue.