sub SortValues
{
   my $self = shift;
   my $key;

   foreach $key ( sort{ ${self->{'_counts'}}{$a}} <=> ${self->{'_counts'}}{$b}} } keys %{$self->{'_counts'}})
   {
      # Print out stuff
   }
}