Select Code to Download

my @data = (
    [ Gender => [ 'Male', 'Female'] ],
    [ A => [ 'a', 'b', 'c'] ],
);

for (@data) {
    my ($column, $options) = @$_;
...
        print '<input type="radio" name="' . $column . '" value="' . $
+option . '"> ' . $option . ' ';
    }
}

        printf qq{<input type="radio" name="%s" value="%s">%s\n},
            $column,
            $option,
            $option
        ;

use strict;
use CGI;
...
    # no value checked by default, as long as you
    # don't have '_' as an option.
}

my %dataoptions = map @$_, @data;