@a = split //, $num;