while (<FILE1>) {
   chomp
   push @table1,[ split /\s+/ ];
}