Help for this page
... my $row; @$row = split(/,/, $line ); push @$sheet2 , $row; ...
... my @row = (); @row = split(/,/, $line ); push @sheet2 , \@row; ...
... push @sheet2, [ split(/,/, $line ) ]; ...