my %ipsort;
use Tie::IxHash;
tie %ipsort, "Tie::IxHash";
[download]

This will give you a hash sorted by insertion order.