my @common_keys = grep { exists $y->{$_} } keys( %{ $x } );