http://www.perlmonks.org?node_id=534218


in reply to This could have DWIM better

Well, to tell the truth, I just

use warnings; no warnings qw(uninitialized);
to silence this particular warning completely. I find it annoying and pointless. But that's just me and everyone knows I'm weird.