use Data::Dumper; my @asdf = (qw/A B C D E F/); my %hash; my $hr = \%hash; for(@asdf) { $hr->{$_} = { }; $hr = $hr->{$_}; } print Dumper \%hash;
That prints:
$VAR1 = { 'A' => { 'B' => { 'C' => { 'D' => { 'E' => { 'F' => {} } } } } } };
In reply to Re: How to Create Hash From this Array
by friedo
in thread How to Create Hash From this Array
by echoangel911
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |