use strict;
use warnings;
use 5.016;

my $fname = 'data.txt';

open my $INFILE, '<', $fname
    or die "Couldn't open $fname: $!";

chomp(my @lines = <$INFILE>);

close $INFILE
    or die "Couldn't close $fname: $!";