did you mean something like this ? :-)

scalar reverse join(',', (reverse '4123456789') =~ m/.{1,3}/g);
[download]