my @file_list = sort { -M $b <=> -M $a } grep -f, readdir $dir_handle;