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