foreach my $person (sort { $values{$b} <=> $values{$a} } keys(%values)) {
...
}