Select Code to Download

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

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