my @AoA;
for my $x (0..$#records) {
    $AoA[$x] = [ split ' ', $records[$x] ];
}
[download]

or

my @AoA;
for (@records) {
    push @AoA, [ split ];
}
[download]

or

my @AoA = map { [ split ] } @records;
[download]