Is something like:...

Looks similar to explain $scan = $scan->{shift @parts} ||= {} while @parts;