Activity for Sudoku perl