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