my @textCharacters = split( // , $plainText );

   for( $j = 0 ; $j <= ( length( $plainText  )/8 )-1 ; $j++ )
   {
       $z = "";

       for( $k = 0 ; $k <= 7; $k++ )
       {
         $i = $j*8 + $k;

         $z .= $textCharacters[$i];
       }

       print "STRING";
       print "Z = X $z X \n";

       my $cipher = new Crypt::Blowfish $key;
       $cryptText .= $cipher->encrypt( $z );
   }