Select Code to Download

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');