Other than the no warnings qw( uninitialized ); suggestion, my solution wasn't a complete solution and didn't pretend to be. That's why I prefaced it with the phrase, "here's something that might help."

-sauoq
"My two cents aren't worth a dime.";