Select Code to Download

my %count;
++$count{$_} foreach @c;
...
my @pairs = grep { $count{$_} >= 2 } sort { $b <=> $a } @c;
my @kind3 = grep { $count{$_} >= 3 } @pairs;
my @kind4 = grep { $count{$_} >= 4 } @kind3;

@c = sort { $b <=> $a } @c;

...
   }
   $s = $e;
}

@c = sort { $b <=> $a } @c;

...

# Sort by length, then by highest.
@runs = sort { @$b <=> @$a || $b->[0] <=> $a->[0] } @runs;