my @array;
while(<$file>){
  chomp;
  tr/A-Z//d;
  push @array, [split /\s+/];
}