use 5.12.0;
use strict;
use warnings;
use Carp;

open IN,"<DirList2.txt";
my $fn=<IN>;
chomp $fn;

my @st=stat $fn;

if (@st) {
    say "Array defined";
} else {
    say "Array undefined";
}