validating

Now it is trivial to write something to check the validity of a puzzle:

for my $dimension ( \@row, \@col, \@block )
{
    for my $grouping ( @$dimension )
    {
        my %seen;
        return if grep { $seen{$$_}++ } @$grouping;
    }
}