opendir(DIR,"C:\\perl-dev\\project_2");
my @ar_files = sort { $a cmp $b } readdir(DIR);
closedir(DIR);