opendir(LOGS,".");   
sort @val = map { -M $_ } grep(/.*\.log/,readdir(LOGS));