Select Code to Download

[
    0 0 0 0 0 5.88235294117647 
...
    3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
    3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 100
]

  foo: 5.88235294117647%
  bar: 17.6470588235294%
  baz: 23.5294117647059%
 quux: 52.9411764705882%

c:\test>junk -N=1e2
       foo frequency 4.000%
...
       bar frequency 17.662%
       baz frequency 23.446%
      quux frequency 53.007%

#! perl -slw
use strict;
...

printf "%10s frequency %.3f%%\n", $_, $choices{ $_ } *100 / $N
    for sort{ $choices{ $a } <=> $choices{ $b } } keys %choices;