for @out Z @out1 -> $char, $count { %hash{$char} += $count; }