print "<form>\n";

for my $field (@fields) {
   print qq|<input value="$field" type="radio" name="pic" /><br />\n|;
}

print "</form>\n";