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');
## $DATA{3}{h}{i}{j}{k} = 'value' ##
## my @arr = qw(h i j k); put_element($DATA{3}, @arr, 'value');