# the first element of $path is always a key in the DB_File
	my ($root, $tip) = (shift(@path), pop(@path));
	
	# get old tree
	my $old = thaw($db{$root});
	
	# start off at the root
	$nodule = $old;
	
	while (my $next_key = shift @path) {
		unless (exists $nodule->{$next_key}) {
			$nodule->{$next_key} = {};	
		}
		$nodule = $nodule->{$next_key};
	}
	
	$nodule->{$tip} = $content;
	print Dumper($old);

##</code><code>##

$VAR1 = {foo =>
		{bar =>
			{baz => 'some arbitrary data'}
		}
	};