in reply to JS in a CGI: unable to find a solution

Something like this: 
print <<EOH;
<html>
...
<script>
...
</script>
<table>
EOH

my @items = (
    { text => 'Text inside PopUp', name => 'This link', },
    { text => 'Another text inside', name => 'Another link', },
);

foreach my $item (@items) {
    print <<EOT;
<TR>
    <TD ALIGN="center"><A HREF="#" ONMOUSEOVER="popup('<font color=yel
+low>$item->{'text'}</font>','green')" ONMOUSEOUT="removeBox()">$item-
+>{'name'}</A></TD>
  </TR>
EOT
}

print <<EOF;
</table>
...
</html>
EOF

[download]
You can also check CGI for a better cgi approach and Template-Toolkit for a higher level templating approach.

Update: Added the @items array of hashes to have a better understanding.

Igor 'izut' Sutton
your code, your rules.

In Section Seekers of Perl Wisdom