use warnings;
use strict;
use File::Slurp;

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

##</code><code>##

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