my @common_keys;
foreach my $key (keys %a) {
   if (exists $b{$key}) {
      print "\%a and \%b have key '$key' in common\n";
      push @common_keys, $key;
   }
}