my $dateiname = "/bla/bla/bla/steuerdatei.cfg";
my $file = "/bla/bla/bla/fileMitDatensätzen.csv";

open (INP,"<$dateiname");
	my @Keys = <INP>;		#Steuerdatei
close INP;

open (INPUT,"<$file");
	my @Values = <INPUT>;	#Datensätze zeilenweise
close INPUT;

chomp(@Keys); chomp(@Values);

my @AoH = ();



my %hash= ();
my $i = 0;
my $j = 0;
my $k = 0;
for (my $i=1; $i<(@Values)-1; $i++){		#Vor- & Schlusssatz abschneiden
	#%hash= ();
	#print "Zaehler: $i\n";
	my @valueX = split(/\|/, $Values[$i]);
	#print "$valueX[0] ,,, $valueX[1] ,,, $valueX[2]\n";
	#push @AoH, { $Keys[0] => $valueX[0], $Keys[1] => $valueX[1], $Keys[2] => $valueX[2]};
	for(@Keys){
		$hash{ $Keys[$j++] } = $valueX[$k++];
	}
	$j= 0; $k = 0;
	push @AoH, \%hash;
	#$AoH[($i)-1] = \%hash;
}

  my $href ="";
  my $role="";
  
  #Ausgabe:
  for $href ( @AoH ) {
    for $role ( keys %$href ) {
         print "$role=$href->{$role} ";
    }
    print "\n";
}