$form{$field} = \%field;
...
foreach $key1 (keys %form) {
	 print "Key: $key1\n";					 
	 $t1 = ${form{$key1}};
	 foreach $key2 (keys %$t1) {
		print "\tName: $key2, Value: $$t1{$key2}\n";
                #Same results - testing different format
		print "\tName: $key2, Value: $form{$key1}{$key2}\n";
	 }
}