hash of hashes

hashes.pl

#!/usr/bin/env perl

my $array = [qw/one two/];
my $hash = {};
my $value = [qw/done and done/];

sub head {
    my (@list) = @_;
    return shift @list;
}

sub tail {
    my (@list) = @_;
    shift @list;
    return \@list;
}

sub last_e {
  my (@list) = @_;
  return pop @list;
}

sub build_hash {
  my ($lst, $a) = @_;
  return if !@$lst;

  my $head = head(@$lst);
  $a->{$head} = (last_e(@$array) eq $head) ? $value : {};  

  build_hash(tail(@$lst), $a->{$head});
}

build_hash($array, $hash);

__END__
OUTPUT:

$VAR1 = {
          'one' => {
                     'two' => [
                                'done',
                                'and',
                                'done'
                              ]
                   }
        };