http://www.perlmonks.org?node_id=196365


in reply to setting hash keys by array

sub nested {
    return ( shift, (@_) ? { nested(@_) } : 1 )
}

my %hash = nested(qw(red green brown));

[download]

In Section Seekers of Perl Wisdom