in reply to Initializing HoHoA with Map

I don't know if map will be any faster, but ...

my $VAR1 = { map { $_ => { map { $_ => [] } @array } } @array };

print "Just another Perl ${\(trickster and hacker)},"
The Sidhekin proves Sidhe did it!

In Section Seekers of Perl Wisdom