my %hash;
my $datei_name = 'test.txt';

open (my $fh, '<', $datei_name) or die "Datei kann nicht geöffnet werden $!"; # Datei öffnen
my @daten = <$fh>; # alle Zeilen in Array einlesen
close $fh;

chomp(@daten); # Newlines entfernen

%hash = @daten; # Hash mit Liste füllen