8 REPLEN: for my $replen (1..@l) {
9 for my $tried (@replen) {
10 next REPLEN if ($replen%$tried)==0;
13 REPCOUNT: for my $repcount (2..@l/$replen) {
14 for my $repline (0..$replen-1) {
15 next if $l[@l-$replen+$repline] eq $l[@l-$replen*$repcount+$repline];
16 $repcountx=$repcount-1;
20 next if !$repcountx || $repcountx==1;
21 my $covered=$replen*$repcountx;
22 print "$replen lines ${repcountx}x covers $covered of ".int(@l)." = ".int(100*$covered/@l)."%\n";