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