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

@daten = ('K1', 22, 'P', 66, 'WWW', 9, 'i', 12);
%beispiel_hash = (
  # Schlüssel    Wert
  'Schluessel1', 12,
  'Key2    =>    'Wert2',
  @daten,
  'K1', 22, 'P', 66, 'WWW', 9, 'i', 12
);