Select Code to Download

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

@val = sort map {-M $_} grep {...

@tmp1 = readdir LOGS;  
     # @tmp now contains the files listed in "."
...
     #@tmp3 now contains what?

@val = sort @tmp3;

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