Or use Tie::IxHash on the data hash, before you start filling it.

use Tie::IxHash;
tie %data, 'Tie::IxHash';
[download]

Tie::IxHash actually does pretty much the same thing as your code, under the hood.