my @dups = do {
  my %count;
  grep ++$count{$_} == 2, @keys_from_one, @keys_from_two;
};