#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use Data::Dumper;
$Data::Dumper::Sortkeys = 1; # Gibt die Keys von Hashes sortiert aus beim Dumpen


my @AoH = ();

#
# Erste Zeile einlesen und splitten,
# Werte bilden Schlüssel des zu bildenden
# AoH's:
#
my $Zeile1 = <DATA>;
chomp $Zeile1;
my @Keys = split / , /, $Zeile1;

#
# Restliche Datei einlesen, dabei das AoH aufbauen:
#
while (<DATA>) {
    chomp;
    my @Values = split / , /;

    die "Falsche Anzahl Elemente in Zeile $."
        if scalar @Keys != scalar @Values;

    # Hash aufbauen:
    my %Hash = ();
    for my $i (0..$#Keys) {
        $Hash{$Keys[$i]} = $Values[$i];
    }

    # Hash in AoH anhängen:
    push @AoH, { %Hash };
}

print Dumper \@AoH;

__DATA__
Datum , Verz_1 , Verz_2 , Verz_3
1.5.03 , 15687 , 15235 , 1235
2.5.03 , 15694 , 15300 , 1250