for (grep /^default_option_/, keys %def) {
   my (undef, $option) = split /_/, $_, 2;
   $s{$option} = $def{$_};
}