sub equalOrBothNull
{
   my ($a, $b) = @_;

   ((defined($a) && defined($b) && $a==$b) ||
    (!defined($a) && !defined($b));
}

##</code><code>##

not defined($a) && not defined($b)

##</code><code>##

$ perl -MO=Deparse -e'not defined($a) && not defined($b)'
not defined $a && !defined($b);
-e syntax OK