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