D:\ENV>perl -MData::Dumper -e "$ha = { a => 'A' }; $hb = { b => 'B' }; $m = { %$ha, %$hb }; print Dumper( $m );"
$VAR1 = {
          'b' => 'B',
          'a' => 'A'
        };