use strict; #you are using strict, aren't you? ;)
my @val = map   { $_->[0] } 
          sort  { $a->[1] <=> $b->[1] }
          map   { [$_, -M $_] }
          grep  { /\.log$/ }
          readdir LOGS;