while ( <$lines> ) { chomp; push @row, [ split // ]; }