for my $item (@items) { ... } #### chomp( my @lines = <$fh> );