my @lines = IO::File->new('foo')->getlines;