Select Code to Download

 chomp $_;
 my $line = $_;
...
   $_         # return the modified string
  }
 split '\s+', $line;

 my @array = split;

 print @array."\n"; # prints number of elements instead of whole array

 print @array, "\n";

 $hash->{$line_num}=@array; # does not works because of previous issue

 $hash->{ $line_num } = \@array;

 $hash->{ $line_num } = [ @array ];

while ( <FH> ) {
    $hash->{ $. } = [ split ];
}

my @data;
while ( <FH> ) {
    push @data, [ split ];
}

my @data = map [ split ], <FH>;