while (<$fh>) {...