my @array = qw(red green brown);

# I want to get
$hash{red}{green}{brown} = 1;