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