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

##</code><code>##

  print "$_: \t$counts{$_}\n" for sort keys %counts;