Select Code to Download

<input name="form_item.foo"    value="one">
<input name="form_item.bar"    value="two">
<input name="form_item.fiddle" value="three">

sub nest_hash
{
...

print $nested->{form_item}{foo};     # one
print $hashref->{fiddle};            # three