my @array1 = ("a", "b", "c", "d");  
 
my @array2 = ("a", "c", "e");

 my %hash = { 
   'a' => { 
        'b' => { 
            'c' => { 
                d => 'some data' 
            } 
        }, 
        'c' => { 
            'e' => 'some other data' 
        } 
    } 
};

@array1 = qw( a b c ); 
@array2 = qw( a b c d e );

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
use Data::Dumper; 
 
# Make Data::Dumper pretty 
$Data::Dumper::Sortkeys = 1; 
$Data::Dumper::Indent   = 1; 
 
# Set maximum depth for Data::Dumper, zero means unlimited 
local $Data::Dumper::Maxdepth = 0; 
 
my %hash = (); 
my $c = 0; 
 
store( qw( a b c d e ) ); 
store( qw( a c e ) ); 
 
print '%hash: ', Dumper \%hash; 
 
sub store { 
 
  if( @_ ){ 
    my $h = \%hash; 
    my $last = undef; 
    for my $k ( @_ ){ 
      $last = $h; 
      $h->{$k} = {} unless exists $h->{$k}; 
      $h = $h->{$k}; 
    } 
    $last->{$_[-1]} = "some " . ( 'other ' x $c++ ) . "data"; 
  } 
}