my $scan = \%ret;
		$scan = $scan->{shift @parts} ||= {} while @parts;