Select Code to Download

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

push @{$freq {$array [0]} {value}} => $_;

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