Select Code to Download

my %temp = ( "0x55555555" => { "0x55555555" => [ ["0xAAAAAAAA", "0x9"]
+, ],
    "0xAAAAAAAA" => [ ["0xAAAAAAAA", "0x8"], ],  },
...
    "0xAAAAAAAA" => [ ["0x55555554", "0x3"], ],  },  );

my $var = \%temp;

{                         # ref to hash: $var
  '0xAAAAAAAA' =>         # key of hash, string: +(keys %{$var})[0]
...
        ]
    }
}

print +(keys %{$var->{'0xAAAAAAAA'}})[1], "\n";
print $var->{'0x55555555'}->{'0xAAAAAAAA'}->[0]->[0], "\n";
...
            '0x9'
          ]
        ];