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


##</code><code>##


opendir(LOGS,".");
@FILES = grep(/.*\.log/,readdir(LOGS));
closedir(LOGS);

for ( $counter = 0 ; $counter <= $#FILES ; $counter++ ) {
    $val[$counter] = -M ($FILES[$counter]);
}

sort @val;

for ( @val ) {
    print $_."\n";
}