#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

my @files = glob('data/*');
my %filedata;   

for my $file (@files) {
   open my $fh, "<$file" or die "Ack, Can't open $file";
   chomp( my @data = <$fh> );
   close $fh;
   $filedata{$file} = \@data;
}
print Dumper(\%filedata);