my @common_keys = grep { exists $b{$_} } keys(%a);