use IO::All;
my @lines = io($filename)->slurp;