foreach my $line (<$fh>) {