# Nevermind, this is broken and not worth fixing.
my %h1 = map @$_, @a1;
my %h2 = map @$_, @a2;
my @arr = map [ $_, $h1{$_}, $h2{$_} ], sort keys %h1, keys %h2;