Your second return should be:

        return !defined $l && !defined $r;
[download]

Otherwise, two undefs will compare unequal.