while (my $_ = <$FH>)