my $last=\\%dirhash; $last=\$$last->{$_} for split qr|/|;