sub get_meta_keywords {
  my ($script,$parameter) = @_;

  $sql_stmnt = "SELECT meta_keyword
                FROM site_meta_keywords 
                WHERE script = ?
                AND parameter = ?";
  $sth = $dbh->prepare($sql_stmnt);
  $sth->execute($script,$parameter);    
  my $keywords = $sth->fetchall_arrayref();
  $sth->finish();
    
  my $meta_keywords = join(', ', @$keywords);
    
  return $meta_keywords;
}

##</code><code>##

#!/usr/bin/perl -w

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

print $meta_keywords, "\n";

exit;

##</code><code>##

sub get_meta_keywords {
  ...
  
  my @keywords; 
  while(my ($keyword) = $sth->fetchrow_array()) {
     push(@keywords, $keyword);
  }
  $sth->finish();
    
  my $meta_keywords = join(', ', @keywords);
  
  return $meta_keywords;
}