in reply to hashes sorted by value, but displaying both keys and values
foreach my $person (sort { $values{$a} <=> $values{$b} } keys %values) + { . . . [download]