Or you can just do this:
open(FILE, "<" . $file) or die ("Can't open file: $!"); my @lines = <FILE>; close FILE; [download]
In reply to Answer: how to populate array with lines from text file? by jreades