print "<form>\n";

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

print "</form>\n";

##</code><code>##

use CGI qw(:standard);

print start_form,

   radio_group(-name => 'pic', -values => \@field),

   end_form,
;