Help for this page
foreach (<$lines>) ... $current += 1; }
while ( <$lines> ) { ... push @row, [ split // ]; }