Help for this page
my @matrix = map[ split ], <$filehandle>;
my @matrix; push @matrix, [ split ] while <$filehandle>;