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