for (@Fields) {
    print
        $_->{Title},
        ': ',
        textfield(
            -name => $_->{Name},
            -value => $_->{Value},
        );
}