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;
}