my @sorted_keys = sort { $filenames{$a} <=> $filenames{$b}} keys %filenames;