while ( my $line = <$h> ) { ...}