Help for this page
put_element($DATA{3}, 'h', 'i', 'j', 'k', 'value');
$DATA{3}{h}{i}{j}{k} = 'value'
my @arr = qw(h i j k); put_element($DATA{3}, @arr, 'value');