my $sum = unpack( "%32C*", $$str_ref ) % 65535 ;