use strict;

my @options = (
   'Perfect for me',
   'Okay, but my first choice was taken',
   'My real name, blame my parents',
   'Cowboy Neal',
);

for (0..$#options) {
   print "<tr>\n<td align='left' bgcolor='#8f4141'>\n";
   print "<font color='#eabf12' size='2'>\n";
   print qq|<input name="in_vote" type="radio" value="option_$_">$options[$_]</font>\n|;
   print "</td>\n</tr>\n";
}

##</code><code>##

select option.description from option
   inner join poll on option.poll_id = poll.id
   order by option.number