@repeat=common(\%a,\%b,\%c);
sub common
{
  my %d;
 for my $href(@_)
  {
    while(my $m=each %$href)
     $d{$m}++;
   }
}
 return grep {$d{$_} ==@_} keys %d
}