Eu quero criar uma multidimensional%hash de@array.

Suponha@array é como

my @array=(1,2,3,4,5);

Eu quero atribuir@array último valor como valor final para multidimensional%hash isto é

%hash=(
        1=>{ 
              2=>
                 {
                  3=>
                      {
                        4=>5
                       }
                  }
              }
           )

Que significa$hash{1}{2}{3}{4}=5;

Eu quero fazer isso em algo como:

for my $i (0..$#array){
    #push $i as key until second last element and assign last element as value
} 

Note o@array pode ser de qualquer tamanho, só quero atribuir o último elemento de@array como valor para as chaves dos elementos antes do último elemento em%hash.