use strict;
use warnings;

use Data::Diver qw( DiveVal );
use Data::Dumper;

my @pathparts = split(/\//, "dir1/dir2/dir3/file1");
my $href = {};

DiveVal( $href, @pathparts ) = 'value';

print Dumper( $href );

##</code><code>##

$VAR1 = {
          'dir1' => {
                      'dir2' => {
                                  'dir3' => {
                                              'file1' => 'value'
                                            }
                                }
                    }
        };