for(my $i=0; $i<=$#header; $i++){
@header[$i] = $inhalt[$i];
}