# in it, hello becomes axeeh, giddy acxxs
my $fl = $l[0];
my $index = $l_o{$fl};
- $mapped_word = join('',map {$l_o[($l_o{$_} - $index) % 26]} @l);
+ $mapped_word = join('',map {$l_o[($l_o{$_} - $index + 26) % 26]} @l);
$temp = $database->{rotation}{$mapped_word};
$temp = [] if not defined $temp;
push @{$temp}, $word;