Select Code to Download

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

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

use Data::Alias qw( alias );

...

alias $by_addr{$shared_addr} = $shared_ident;
alias $by_ident{$shared_ident} = $shared_addr;