Select Code to Download

use strict;
use Data::Dumper;
...
$x = { %$x, %$y };
print Dumper($x);

$VAR1 = { 'c' => 3,
          'a' => 1,
...
                    'bbb' => 11
                  }
        };

use Hash-Dumper qw/merge/;

$x = { %$x, %$y };

$x = merge( $x, $y );

$VAR1 = {
          'c' => 3,
...
                    'aaa' => 11
                  }
        };