my $encrypted = $message ^ $key;
my $decrypted = $encrypted ^ $key;