use Digest::MD5 qw( md5 );

my $id = unpack('n', substr(md5($word), -2));