my ($header) = split /\n/;