Help for this page

Select Code to Download

Select or download this

my %output;
$output{$_} ||= {( %{$VAR1->{$_}||{}}, %{$VAR2->{$_}||{}} )}
    for keys(%$VAR1), keys(%$VAR2);