puzzling in Perl

I'm a fan of puzzles, but I have little patience for my meat-brain.

Puzzles like Sudoku mostly make my meat-brain ask:

how would my other brains handle this?