my $alice = 'bob';
my $bob   = reverse $alice;
say "Catastrophic crypto fail!" if $alice eq $bob;