Rein interessehalber, was ist sub1 für eine Syntax? Was bewirkt das?
Und warum definiert man die zweimal? Wie verhindert man, dass Perl die erste mit der zweiten überschreibt (Fehlermeldung sub redefined)?