in reply to Re^4: How to split an integer??
in thread How to split an integer??

my $number = 23; my @bits = split //, $number; my $total; for my $bit (@bits) { $total += $bit; } print "Number=$number Total=$total\n";