my $string = "some string";
my $sum = 0;
$sum += ord($_) for( split('',$string) );