# map{}' on the last key is ok.
my $href = {
	    key1 => {
		     subkey1 => "Defined first is OK",
		     subkey2 => map{s/\r?\n\Z/(munched)/;$_} (${^__}=<<EOT),
First line in sub key.
Second line. The third contains an interpolated value, and all is OK.
Line 3    $interpolated
and no newline here ->
EOT
		   },
	   };

# This explodes...
# map{}' ing, then defining another key leads to a runtime error.
eval {
$href->{key2} = {
		 subkey1 => map{s/\r?\n\Z/(munched)/;$_} ($ {^__}=<<EOT),
First line in sub key.
Second line. The third contains an interpolated value, and all is OK.
Line 3    $var3
and no newline here ->
EOT
		   subkey2 => "Kaboom !",
		  };
};

if ($@) {
  ($href->{key2}->{subkey1} = $@) =~ s/\r?\n\Z//;
  $href->{key2}->{subkey2} = "Set after eval";
  $@ = undef;
}