use strict;
use warnings;
use Data::Dumper;

my (@arr1, @arr2);

### Create array of 1444 elements
push @arr1, $_ for 1..38**2;

### Create AoA of 38x38
push @arr2, [ @arr1[($_*38)..($_*38+37)] ]
    for 0..37;

print Dumper(\@arr2);
[download]