my @pathparts = split(/\//, "/dir1/dir2/dir3/file1"); 
my %hash; 

##</code><code>##

$hash{"dir1"}{"dir2"}{"dir3"}{"file1"}