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