@files = sort { $files{$b} <=> $files{$a} } keys %files;