Help for this page
tie (my %data, 'Tie::IxHash');
tie(my %data, 'Tie::IxHash'); while ( ... ) { # add info to %data ... } ... }