my $directory = File::Spec->catfile(my @path, my $directoryTest);
opendir DIR,my $directory or die "cannot open dir $directory: $!";
my @file= readdir DIR;
my @FinalDirectoryList;
push (my @FinalDirectoryList,my @file);