foreach(my $line =  <$FH>) {