my @sorted_array = sort {$freq{$b}{"freq"} <=> $freq{$a}{"freq"}} keys %freq;