sub merge {
  my %merged;
  for (@_) {
    while (my ($k, $v) = each %$_) {
      push @{$merged{$k}}, $v;
    }
  }
  %merged;
}
[download]

Though, if I were using this, I would prefer for it to a return a reference.

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print