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