$diff[$_] = $cyphertext[$_] - $cyphertext[$_+13] for 0..(@cyphertext - 13); #### $diff[$_] == $plaintext[$_] - $plaintext[$_+13];