Change the while condition to:     while( 9 < ++$pick[$i]  ) { and the return statment to     return reverse @pick; and it will count in base 10. Perhaps that will make it easier to understand what it was doing.

        - tye (but my friends call me "Tye")