perl library force values into HTML::Form selects