Help for this page
Select Code to Download
Select
or
download this
while (@files) { ...
Select
or
download this
push @data, [ splice @files, 0, $num_cols ] while @files;