sub splitme {
    my (%pairs) = @_;
    my $hash = {};
    for my $keypath (keys %pairs) {
        my @paths = split m#/#, $keypath;
        my $value = $pairs{$keypath};
        make_hash($hash, $value, @paths);
    }
    return $hash;
}

sub make_hash {
    my ($hash, $value, @paths) = @_;         
    my $ref = \$hash;                        
    for (@paths) {
        $ref = \$$ref->{$_};
    }
    $$ref = $value;
}