foreach my $line (<FH>)