my @array = <$FH> ;
..
while (<@array>)
..