use strict;

my @records;
my (&#36spalte1, &#36spalte2, &#36spalte3, &#36spalte4);

my &#36dossier= "/home/blabla/datei.txt";

open(ENTREE,"&#36dossier")or die "can't open this File &#36!";
while(<ENTREE>){
  chomp;
  if (&#36. == 1) {
    (&#36spalte1, &#36spalte2, &#36spalte3, &#36spalte4) = split(/\s+/, &#36_);
  }
  else {
    my(@zahlen) = split(/\s+/, &#36_);
    push(@records, { &#36spalte1 => &#36zahlen[0], &#36spalte2 => &#36zahlen[1], &#36spalte3 => &#36zahlen[2], &#36spalte4 => &#36zahlen[3]  });
  }
}
close ENTREE;

use Data::Dumper;
print Dumper(\@records);