for (@bigArray) { my $node = \\%hash; $node = \$$node->{$_} for split /\+/; $$node = 1; }