A simple Sudoku solver in Perl