Brain-dead perl scripts for picking resistor values from a set of available values