in reply to Re: undef-safe equality (shorter)
in thread undef-safe equality

But you can do 
sub iseq {
  (!defined $_[0] || $_[0].9) eq (!defined $_[1] || $_[1].9);
}

[download]
Update - shorter: 
  1 == keys %{{map {(!defined()||$_.9)=>1} @_}};

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom