#!/usr/bin/perl

use strict;
use warnings;
# für die Ausgabe des Hashes
use Data::Dumper;

# die Dateien
my @files = qw(file1.txt file2.txt file3.txt);

# hier wird alles drin gespeichert
my %hash;

for(0..(scalar @files)-1){
    open my $fh,'<',$files[$_] or die $!;
    $hash{$_} = [<$fh>];
    close $fh;
}

print Dumper(\%hash);