perl 把兩個雜湊/哈希(hash) 合併成一個雜湊/哈希(hash)

之前都土法煉鋼傻傻的 foreach hash 裡每個元素，再放到另外一個 hash，達成合併的效果，其實還有更簡單的方式 囧rz

use JSON;

my %h1 = (x=>1);
my %h2 = (y=>2);
my %hs = (%h1, %h2);
print encode_json(\%hs);  #output: {"x":1,"y":2}

my $h1 = {x=>1};
my $h2 = {y=>2};
my $hs = {%{$h1}, %{$h2}};
print encode_json($hs);  #output: {"x":1,"y":2}

這就是把兩個hash合併起來，然後...就沒有然後了...