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