$s{"option_$1"} = $def{$_} for (grep /^default_option_(.*)/, keys %def);