my $equal = 
   $x eq $y || eval { use warnings FATAL => qw( numeric ); $x == $y };
[download]

Doesn't check if the either of the values are undef