while ( my $line = <$fh> ) {
    chomp $line;
    push @aoa, [ split /\s+/, $line ];
}