$scan = $scan->{shift @parts} ||= {} while @parts;