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