#head -1 <IN>;
#my $firstline = IN;