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

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