my $addr = 0x1234;
my $ident = "abc";

my %by_addr  = ( $addr => $ident );
my %by_ident = ( $ident => $addr );