or download this
print "\n\n";
my $refarray3 = $matchedfiles[5];
print "it's not defined!\n" unless defined(${$refarray3}[0]);
print "it's not defined!\n" unless defined(${$refarray3}[1]);
print "File: ${$refarray3}[0] in directory ${$refarray3}[1]\n";