Select Code to Download

#!/usr/bin/env perl

...
    my @cols_data = splice @$all_data, 0, $cols;
    return @cols_data, ('') x ($cols - @cols_data);
}

/=======================================\
|            QWERTY Keyboard            |
...
| skip2 |       |       | skip1 |       |
| skip  | rest  |       |       |       |
\=======================================/