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