Das $DEBUG ist nur drin, damit du prüfen kannst, was es ausgibt. Habe ich für dich reingebaut. ;)
Du kannst auch die Zeilen mit $DEBUG löschen, wenn alles läuft.

Wenn du Debug einschalten willst, dann $DEBUG = 1 zum Ausschalten das = 1 weglassen, denn bei der Definition (ohne nachfolgende Zuweisung) ist jede Variable erst mal undef, das wird bei Perl als false (also logisch unwahr) angesehen.