print $out sort keys %old;
[download]

Try that. As is, this would print all keys concatenated together as one string. That's fine if each key has a trailing record separator attached.