$last = (sort { $b cmp $a } readdir( DIR ))[0];