open my $fh,...
while (<$fh>) { ... }