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

Or, reversed:

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

Also, I believe there is a question in the Q&A section on this. Look there for more info.

-- ar0n