for my $o ( 0 .. ( $lenBig - $lenSmall + 2 ) ) {