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

##</code><code>##

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

##</code><code>##

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