Select Code to Download

use strict;
use warnings;
...
    keys %joined_1st;

pp \%joined_2nd;

{
  Adam => { abc => 0, def => 0, ghi => 0, jkl => 7, mno => 0, pqr => 7
+ },
...
  keas => { abc => 0, def => 0, ghi => 0 },
  Tim  => { abc => 7, def => 7, ghi => 0 },
}