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);

$VAR1 = [
          {
            'AR-BASE' => '0',
            'CAE-PACK' => '0',
            'EMS-PACK' => '0',
            'case' => '1'
          },
          {
            'AR-BASE' => '0',
            'CAE-PACK' => '1',
            'EMS-PACK' => '1',
            'case' => '2'
          },
          {
            'AR-BASE' => '~0',
            'CAE-PACK' => '0',
            'EMS-PACK' => '0',
            'case' => '3'
          },
          {
            'AR-BASE' => '~0',
            'CAE-PACK' => '1',
            'EMS-PACK' => '1',
            'case' => '4'
          }
        ];