Select Code to Download

#!/usr/bin/perl
use warnings;
...

print map "$_ => " . ($hash{$_} / $sum) . "\n", sort { $hash{$a} <=> $
+hash{$b} } keys %hash;
print "Combinations: $combinations, Count: $sum.\n";

use Algorithm::Combinatorics qw(combinations);
my %hash;
...
while (my $rack = $iterator->next) {
    $hash{ join q(), @$rack }++;
}

1 =================
         Rate module simple
...
       s/iter module simple
module    328     --    -0%
simple    327     0%     --