Select Code to Download

use Tie::Autotie 'Tie::IxHash';
tie my(%hash1), 'Tie::IxHash';

tie my(%hash2), 'Tie::IxHash';
$hash2{"a"} = $a;
$hash2{"b"} = \%hash1;