my @array = qw(red green brown);
my %hash;

my $ptr = \%hash;
$ptr = $ptr->{$_} = {} for @array;
$ptr = 1;