my @array = qw(red green brown);
my %hash;
foreach (reverse @array) {
    %hash = ( $_ => (%hash) ? { %hash } : 1 )
}