I don't get an error at all if I add use diagnostics;.

Also, one of my pet peeves is that Perl doesn't even try to tell you which entity is generating the uninitialized value. Sometimes it's not so easy to find (either because of code complexity, or sheer mental obstruction).