Help for this page
foreach $option (@{$dataoptions{$columns[$i]}})
print qq(<input type="radio" name="$columns[$i]" value="$option">$opti +on);