my %counts; for (0 ... $#out){ $counts{$out[$_]} += $out1[$_]; } #### for @out Z @out1 -> $char, $count { %hash{$char} += $count; }