The difference between

    # broomduster
    my $h = $a{$state}{$city};
    $h->{'Color'} = $color;
[download]

and

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

is that only the latter autovivifies if necessary. For example, here's what happens if

$a{'WI'}{'GreenBay'}{'Color'} = 'Black';
[download]

is commented out:

# broomduster
$VAR1 = {
          'WI' => {}
        };
[download]

# ikegami
$VAR1 = {
          'WI' => {
                    'GreenBay' => {
                                    'Color' => 'White'
                                  }
                  }
        };
[download]

The following would also do:

    my $h = $a{$state}{$city} ||= {};
    $h->{'Color'} = $color;
[download]