use Data::Dumper;
my @files2 = readdir(DIR2);
print Dumper(\@files2);