foreach my $person (sort keys %values)
{
  print $person,"\t",$values{$person},br;
}