foreach my $file (@lines) {
    open(my $fh, '<', $file) or die "$file: $!";
    ...
}

##</code><code>##

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: $!";