my $h = 0;
foreach (split("", $line)) {
  $h+=ord($_)
}
$h = $h % 256;