my (@header, @inhalt);
while(<>){
	chomp;
	if(1..1){
		@header = split(/\t/,$_);
	}
	
	else{
		@inhalt = split(/\t/,$_);
	}
}