Help for this page
my @lines = map { chomp; [split] } <SHEET>;
my @lines; chomp, push @lines, [split] for <SHEET>;
my @lines = map [split], <$sheet>;
my @lines; push @lines, [split] while <$sheet>;