foreach (map { /^default_option_(.*)/ ? $1 : () } keys %def) {
	$s{"option_$_"} = $def{"default_option_$_"};
}

foreach (keys %s) {
	print "\%s: $_ => $s{$_}\n";
}