%s =
  map
  { (split /_/, $_, 2)[-1] => $def{ $_ } }
  #  Useless use of grep.
  grep /^default_option_/, keys %def
  ;