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