sub intersection {
  my %tally;
  $tally{ $_ }++ for map keys %$_, @_;
  return list_2_hashref( grep $tally{ $_ } == @_, keys %tally );
}