foreach my $value (sort keys %tophash)
{
  print $value;
}