my @freq_count = ( 0 ) x values %count;

for ( values %count ) {
    $freq_count[ $_ ]++;
    }
[download]