Vigener Cipher in Perl