my %counts; while (my $key = shift @out) { $counts{$key} += shift @out1; }