Perl script to solve 3x3 sudokus