sub paths2tree
{
	my $hr = {};
	@{$hr}{@_} = map { {} } @_;
	my $n_repls;
	do
	{
		$n_repls=0;
		for ( sort { length($b) <=> length($a) } keys %$hr )
		{
			if ( /(.*)\\(.*)/ )
			{
				$hr->{$1}{$2} = delete $hr->{$_};
				$n_repls++;
			}
		}
	}
	while ( $n_repls );
	$hr
}