http://www.perlmonks.org?node_id=1045537


in reply to Re^2: Splitting Multiple files into arrays.
in thread Splitting Multiple files into arrays.

That data is tab-delimited, not space-delimited. I'd use Text::CSV for this.

use Text::CSV; my $csv = Text::CSV->new({ sep_char = "\t" }); my $array_ref = $csv->getline_all($fh); # OR... my @array = @{ $csv->getline_all($fh) };

You can easily adapt the loop constructs I suggested, above, or many of the other suggestions given by others, with this approach. Good luck.