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

##</code><code>##

for (@data) {
    my ($column, $options) = @$_;

    print $column . ': ';
    foreach my $option (@$options) {
        print '<input type="radio" name="' . $column . '" value="' . $option . '"> ' . $option . ' ';
    }
}

##</code><code>##

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

##</code><code>##

use strict;
use CGI;

my $q = CGI::->new;

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

for (@data) {
    my ($column, $options) = @$_;

    print $q->radio_group(
        -name => $column,
        -values => $options,
        -default => '_',
    );

    # '_' is chosen as default as that will make
    # no value checked by default, as long as you
    # don't have '_' as an option.
}

##</code><code>##

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