#!/usr/bin/perl -w

my @keywords = qw(one two three);
my $keywords = \@keywords;
my $meta_keywords = join(',', @$keywords);

print $meta_keywords, "\n";

exit;