Select Code to Download

 $num = $freq{$array[0]}{"freq"}++;
 $freq{$array[0]}{"value"}[$num] = $_;

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