Something like this?

#! perl -slw
use strict;
use Data::Dumper;
use List::Util qw[ shuffle ];

use constant { X => 10, Y => 10 };

my @list = shuffle 'A' .. 'Z', (' ') x (X * Y - 25);

my @a2d = map{
    [
        @list[ ($_*10) .. (($_+1) * 10) ]
    ]
} 0 .. 9;

$Data::Dumper::Indent = 0;

print Dumper \@a2d;

__END__
$VAR1 = [
    [' ',' ','V',' ',' ',' ','P',' ','A',' ','R'],
    ['R','S',' ',' ',' ',' ',' ',' ',' ',' ','J'],
    ['J',' ',' ','D',' ',' ','C',' ',' ','T',' '],
    [' ','G','W',' ','U',' ','K',' ',' ',' ',' '],
    [' ',' ',' ','N',' ','L',' ',' ',' ',' ',' '],
    [' ','Y','E',' ',' ','B',' ',' ',' ',' ',' '],
    [' ',' ',' ',' ','X',' ','M',' ',' ','O',' '],
    [' ',' ',' ','H',' ','Z',' ',' ',' ','F',' '],
    [' ',' ',' ',' ',' ',' ',' ',' ',' ','Q',' '],
    [' ',' ',' ',' ',' ',' ',' ',' ','I',' ',' ']
];
[download]