#!/usr/bin/perl

use strict;
use Data::Dumper;

my @keys = ('level1_1', 'level2_1', 'level3_1');

my %hash = ();
$hash{data}{@keys} = 'test';

print "Dumper: '".Dumper(\%hash)."'<br>\n";