sub get_meta_keywords { my ($script,$parameter) = @_; $sql_stmnt = "SELECT meta_keyword FROM site_meta_keywords WHERE script = ? AND parameter = ?"; my $rows = $dbh->selectall_arrayref($sql_stmnt, undef, $script, $parameter); my $meta_keywords = join(', ', map { $_->[0] } @$rows); return $meta_keywords; }