open (DATA, "< $Filename") or die "...";
my $headline = <DATA>;
chomp $headline;
my @headlineNew = split(';',$headline);
my @headHash;
while (<DATA>) {
my @save=split(';',$_);
chomp @save;
push(@headHash, {
$headline[0] => $save[0],
$headline[1] => $save[1],
$headline[2] => $save[2],
});
}