Use of uninitialized value ist nur eine Warnung, kein fataler Fehler. Perl nimmt für nicht initialisierte Variablen bei einer Addition den Wert 0 an.

Wenn Du darauf Wert legst, kannst Du mit strictures die Warnungen in fatale Fehler umwandeln (oder auch mit warnings, aber dazu muss man sich gut in den Warnungs-Kategorien auskennnen).