my @chars = split( //, $in );
foreach my $char (@chars) {
   $check += ord($char);
}

##</code><code>##

$check += ord $_ for split //, $in;