use List::Util qw( sum );

my $id = (sum map ord, map /./sg, $word) % 65536;