my (@data_array, @begriff_array, %begriff_hash);
while(<>){
    chomp;
	my $begriff = $1, my $matrix = $2 if (/^([^\t]+)\t(.*)/);
	push @begriff_array, $begriff;
	# Push Array of Array
	push @data_array, [split(/\t/,$matrix)];
}