sudoku Puzzling in Perl #5

what is sudoku?

One rule: Fill in all blank cells making sure that each row, column and 3 by 3 box contains the numbers 1 to 9.

© fishbot