This stuffs all file contents into a hash-of-arrays:

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

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

See also:

• glob
• perldsc
• File::Slurp

Same with array-of-arrays:

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