Help for this page
$a{$state}->{$city}->{Color} = $color; ... my $r = \( $a{$state}->{$city} ); ${ $r }->{Color} = $color;