my @array = <FH>;

##</code><code>##

while( $_ = <FH> ) { ... }