#!/usr/bin/perl

use strict;

my $file1 = <<END_FILE2;
abc
END_FILE2

for my $i (\$file1) {
    open my $myfile, '<', $i or die "cannot open file";
    #open my $myfile, "< $i" or die "cannot open file";
}