#!/usr/bin/perl -W
use strict;

my $hoh;
my @array = qw|abc def ghi jkl|;

my $eval_string = 
    '$hoh->{' . (join '}{', @array) . '} = q|hello world|'; 
eval "$eval_string";

print $hoh->{abc}{def}{ghi}{jkl};

__END__

___output___

hello world