use overload "==" => \&my_compare; 
sub my_compare {
  my ($left, $right) = @_;
  my $result = 
  ($left cmp $right) # falls cmp != 0 liefert sind die ungleich
   ? 0               
   : 1;
   return $result;
}