>perl -wMstrict -le
"use Data::Dumper;
 my @array = qw(test demo work);
 my $value = {
   'key' => ['value', @array, 'add']
   };
 print Dumper $value;
"
$VAR1 = {
          'key' => [
                     'value',
                     'test',
                     'demo',
                     'work',
                     'add'
                   ]
        };