Da hast du dich wohl vertan. ;)

UNDEF darf dort nicht stehen sondern undef
Bei UNDEF würde Perl sofort wegen des Bareword warnen.

Nur damit der Startposter sich nicht wundert.