use IO::All;

my @lines = io('file.txt')->slurp;