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