use File::Slurp;
my @lines = read_file('filename');