Select Code to Download

sub put_element {
    my $current = \ $_[0];
...
put_element( $DATA{3}, 'b', 'y', 'e' );       ## $DATA{3} exists

print Dumper \%DATA;