my $data = do { local $/; <DATA> };
@array = split 'on something', $data;

##</code><code>##

while ( my $line = <DATA> ) {
    # handle the line here instead of as an element of an array
}

##</code><code>##

use Path::Tiny 'path';
my $file_path = '/foo/bar/baz.txt';

# if no memory concern, slurp:
my @lines = path( $file_path )->lines_utf8({chomp => 1});

# or read from a filehandle line-by-line:
my $fh = path( $file_path )->openr_utf8;
while ( my $line = <$fh> ) {
    chomp $line;
    ...
}