my $file = "junk.txt";
open (my $fh, '<',  $file) or die "Can't open $file for read: $!";
my @lines;
while (<$fh>) {
    chomp;
    push (@lines, $_);
}
close($fh) or die "Cannot close $file: $!";