@common = inter ( \%foo, \%bar, \%joe );
sub inter {
	my %seen;
	for my $href (@_) {
		while (my $k  = each %$href ) {
			$seen{$k}++;
		}
	}
	return grep { $seen{$_} == @_ } keys %seen;
}
=======================================================