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