Select Code to Download

while (<>) {
    chomp;
...
        $offset = $found + 1;
    }
}

$sublen = $num * 2 + 1;

...
         # store this ngram to your hash
    }
}