my @x = <FH>;
 foreach (@x) { ... }