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

##

    while (<$fh>) { .. }

##

##

    while (<$fh>) { .. }