@a = <$fh>; for (@a) { .. }