my %counts;
for (0 ... $#out){
    $counts{$out[$_]} += $out1[$_];
}