my %path;
$path{$_}||=keys %path for split /$sep/,$path;