Also, as per `List::Util`, why not `none`?

```perl
return none { $quat->{$_} ne $ceph->{$_} } @$imm;
``` 
?
(plus some logging, sure).