c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @files = undef;
 ;;
 dd \@files;
 ;;
 print 'number of elements in array: ', scalar(@files);
"
[undef]

number of elements in array: 1