Select Code to Download

my $ptr = \%hash;
$ptr = $ptr->{$_} = {} for @array[0..$#array-1]; # fixed; s/shift @arr
+ay/$_/
$ptr->{$array[-1]} = 1;

my $ptr = \%hash;
$ptr = $ptr->{shift @array} = {} while @array > 1;
$ptr->{$array[0]} = 1;