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

my $Filename = $ARGV[0];
my $limit = 0;
my $x = 0;
my %individualHash = ();

open (DATA, "< $Filename") or die "...";
my $headline = <DATA>;
chomp $headline;
my @headlineNew = split(';',$headline);
my @headHash;
while (<DATA>) 
	{
		my @save=split(';',$_);
		chomp @save;
		$limit = @save;
		for ($x = 0; $x<$limit; $x+=1)
			{
				$individualHash{"$headlineNew[$x]"} = $save[$x];
				print STDERR "HASH KEY\tValue: $headlineNew[$x]\t$individualHash{$headlineNew[$x]}\n";
			}

		push(@headHash, %individualHash);
		%individualHash = ();
}