sub sdtt() {
#sum of digits on Text number
local $t =0;
        map { $t+= $_ } split //, sprintf("%d",$_[0]);
        return $t;
}