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

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

say $fn;

my @st=stat $fn;

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

##</code><code>##

E:\Music\Ray LaMontagne\2010 - God Willin' & The Creek Don't Rise
Array undefined