foreach my $key ( keys %worth ) {
#  print "key: $combined, value: $worth{$combined}\n";
   print "key: $key, value: $worth{$key}\n"
}