Select Code to Download

$DATA{1}{a}{e} = 'snu';
$DATA{2}{a}{f} = 'woo';
$DATA{3}{b}    = 'foo';
$DATA{4}{a}{e} = 'bar';
$DATA{5}{d}    = 'bop';

put_element($DATA{3}, 'h', 'i', 'worked');

$DATA{3}{h}{i} = 'worked';

sub put_element
{
...
  ${$current} = $value;
  return 1;
}