Unknown level of hash

[Zhuang Li]

Hi, given an array: @a = ('E1', 'E2', ..., 'En'); 

 

Is there an easy way, hopefully one liner, to do the following without a
loop? If not, will Perl support this in Perl 6?

 

$hash->{E1}->{E2}->...->{En} = 1;

 

 

Thanks,

 

john