Select Code to Download

#use strict;
use warnings;
...
while (grep {@$_} @data) {
    printf "%s\n", join "\t", map {$_ // ''} map {shift @$_} @data;
}

13    22    18
34    15    20
...
    65    32
    34    12
        26