Perl 5 module returning a pair only if they are both defined
