Re: Re: Re: setting hash keys by array

[fruiture]

Why not:

my @chain = qw/a b c d/;
my %hash;

sub foo(\%@){
    local $_ = shift;
    $_ = $_->{scalar shift} = {} while @_;
}

foo %hash => @chain;

? it's becoming obfuscated ...

--
http://fruiture.de