20070911.pdf
20070918.pdf

##</code><code>##

sort {$b->[3] <=> $a->[3] || $b->[1] <=> $a->[1] || $b->[2] <=> $a->[2]}
map {$_ =~ m/(\d\d\d\d)(\d\d)(\d\d).pdf/;[$_, $1, $2, $3]}
@files