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

##</code><code>##

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