Select Code to Download

tie my @file1_arr, 'Tie::File', $file1, mode => O_RDONLY;

...
    # ...
}
untie @file1_arr; # finished with file 1

open my $fh, "<", $file1 or die "Couldn't open '$file1': $!";

...
    # ...
}
close $fh;