my $id = 0;
foreach (map ord, map /./sg, $word) {
   $id = ($id + $_) % 65536;
}