foreach my $s (@opts)
{print  "<input type=\"radio\" name=\"options\" value=".$s,">".$s."  "; 
 }