($self, $keyword, $keyword2, $keyword3, $keyword4, $keyword5, $keyword6, $domain) = (@_);
####
$sub1 = $keyword;
$sub2 = $keyword2;
$sub3 = $keyword3;
$sub4 = $keyword4;
$sub5 = $keyword5;
$sub6 = $keyword6;
$noun1 = &makeNlink($sub1, $domain);
$noun2 = &makeNlink($sub2, $domain);
$noun3 = &makeNlink($sub3, $domain);
$noun4 = &makeNlink($sub4, $domain);
$noun5 = &makeNlink($sub5, $domain);
$noun6 = &makeNlink($sub6, $domain);
####
sub makeNlink {
#($tobelink, $tobelinkurl) = @_;
$tobelink = shift(@_);
$tobelinkurl = shift(@_);
$withspaces = $tobelink;
$tobelink =~ s/\s/_/g;
chomp($withspaces);
chomp($tobelink);
$totallyscrewed = "$withspaces<\/a>";
return $totallyscrewed;
}