my @lines;
chomp, push @lines, [split] for <SHEET>;

##</code><code>##

my @lines;
chomp, push @lines, [split] while <$sheet>;