sub DEFAULT_FIELD { textfield(shift, "", 60) } #### print table({ Border => 1, Cellpadding => 5 }, map { Tr( th($_->[1]), td(($_->[2] || \&DEFAULT_FIELD)->($_->[0])) )} @info );