for( split //, $a ){
    $sum += $_;
}