while (@files) {
    ...

##</code><code>##

    push @data, [ splice @files, 0, $num_cols ]
        while @files;