use Data::Dumper;
my @text = qw/ a b c /;
my %hash = (
    foo => 1,
    bar => join ",", @text,
    baz => 2,
);
print Dumper \%hash;
__END__
$VAR1 = {
          'bar' => 'a,b,c,baz,2',
          'foo' => 1
        };