Select Code to Download

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

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