for my $person (sort { $values{$a} <=> $values{$b} } keys %values)
{
    print "$person\t$values{$person}", br();
}