Select Code to Download

for my $row (1 .. $row_size) {
    for my $column (1 .. $column_size) {
        ...
    }
}

use List::Util qw{ shuffle };

...
        ...
    }
}

#!/usr/bin/perl
use warnings;
...
        say "NOT FOUND";
    }
}

my %srand = ('3 16' => 2,
             '4 10' => 2,
...
             '5 15' => 5,
             # ...
);

srand ($srand{"$rows $columns"} || 1);
$grid = solve($rows, $columns);