array2hashkey

これを実装してるモジュールあったっけ？
コードかっこ良くないなぁ。

#!/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper;

my $array = [qw/a i u e o/];
my $hash = {};

array2hashkey( $hash , $array , 'I am value!!' );

print Dumper $hash;

sub array2hashkey {
    my $hash  = shift;
    my $keys  = shift;
    my $value = shift;


    if ( !scalar @{ $keys } ) {
        return;
    }

    my $key = shift @{$keys};
    $hash->{$key} = scalar @{ $keys } ? {} : $value;
    array2hashkey( $hash->{$key} , $keys , $value  ) ;
}

出力

$VAR1 = {
          'a' => {
                   'i' => {
                            'u' => {
                                     'e' => {
                                              'o' => 'I am value!!'
                                            }
                                   }
                          }
                 }
        };