my @parts = split /\\/, $path;

##</code><code>##

        my $scan = \%pTree;

##</code><code>##

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