print OUTFILE head -1; #### print OUTFILE $line if $. == 1;