Easiest way to open a text file and read it into an array with Perl

Question

Adding a standard Perl file open function to each script I have is a bit annoying:

sub openfile{
    (my $filename) = @_;
    open FILE,\"$filename\" or die          


        

Answer 1

that is the famous "slurp mode":

  my @lines =  ;

you may also see Perl Slurp Ease