Eval man!

my @array = qw/a b c d/;

my $ref = {};

$code = '$ref->{'.join('}->{', @array).'} = 1;';

eval $code;

use Data::Dumper;
print Dumper($ref);