my %a;
my $b={'c'=>0,'d'=>0};
if(1)
{
        $a{$b->{'c'}}=$b->{'d'}
}