Select Code to Download

$a = "Lucy";
my %cell=> = ( Lucy => '12' );
my %map=> = ( 12 => '45' );

print "$cell{$map{$a}}\n";