use strict;
use warnings;
open my $fh, "<", "result" or die "open: $!";
while (<$fh>) {
    my @chunks = split;
    push @AoA, [@chunks[1..$#chunks]];
}
close $fh or die "close: $!";