open (FH, $file) or die "$file: $!"; # need to do it once to initialize $. push @content, scalar (); while ($. < LINE_COUNT) { push @content, scalar (); } close (FH);