# ikegami
    my $r = \( $a{$state}->{$city} );
    ${ $r }->{Color} = $color;