#!/usr/bin/perl

use Data::Dumper;
use warnings;
use strict;

die("usage: $0 <key>=<value> [<key>=<value> ...]\n") unless @ARGV;

my %hash;
foreach my $set (@ARGV) {
    my($keys, $value) = split /=/, $set, 2;
    my @keys    = split /\//, $keys;
    my $lastkey = pop @keys;
    my $h       = \%hash;

    foreach my $key (@keys) {
        if (ref $h->{$key} eq 'HASH') { $h = $h->{$key}      }
        else                          { $h = $h->{$key} = {} }
    }

    $h->{$lastkey} = $value;
}

print(
    Data::Dumper
        ->new   ([\%hash])
        ->Useqq (1)
        ->Terse (1)
        ->Indent(1)
        ->Dump
);