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