my @unseen = do {
     delete %{$hash1->{$a}{$b}}, keys %{$hash2->{$d}{$e}};
     keys %{$hash1->{$a}{$b}};
}