chomp $_;
 my $line = $_;
 my @array =
  map {
   s/^\s+//;  # strip leading spaces
   s/\s+$//;  # strip tailing spaces
   $_         # return the modified string
  }
 split '\s+', $line;

##</code><code>##

 my @array = split;

##</code><code>##

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

##</code><code>##

 print @array, "\n";

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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