Better

for my $o ( ($threshold-1)*$lenSmall .. $lenBig - $threshold*$lenSmall
+ ) {
[download]

But substr needs to handle negative offsets then.

Left as exercise!