my @a = qw(8 foo 666);
my %h = (foo => 100,
	 bar => 333,
	 san => @a);
print Dumper(\%h);

$VAR1 = {
          'san' => 8,
          'bar' => 333,
          'foo' => 666
        };