my @char = split(//,$word);

my $value = 0;
my $place = 0;
foreach revers(@char){
     $value += ord($_) * 256 ** $place;
     $place++;
}
$value = $value % (256**2);