na so zum beispiel:
while (<FH>) {
 push @array, [split /\s+/, $_];
}