my @sorted_data = sort { $tallies{$a} <=> $tallies{$b} } keys %tallies;