foreach my $key (sort keys %titles) {
	# blah
}

##</code><code>##

foreach my $key (reverse sort keys %titles) {
	#blah
}