my ($oldest_file) =  sort { -M $b <=> -M $a } @filenames;