Select Code to Download

use warnings;
use strict;
...
for (glob '*') {
    push @{ $data{$_} }, read_file($_);
}

my @data;
for (glob '*') {
    push @data, [ read_file($_) ];
}