gistfile1.txt

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

my @hoge = qw/aa dd ee ff/;

my %hash = (
    test => @hoge,
);

warn Dumper \%hash;



Odd number of elements in hash assignment at aa.pl line 7.
$VAR1 = {
          'test' => 'aa',
          'ff' => undef,
          'dd' => 'ee'
        };