while(my $line = <FH>) {