my %code;
{
	my %test = (
		foo => 'bar',
	);

	%code = (
		code    => sub {
			my ($ref) = @_;
			$test{foo} = $ref;
		},
	);
} # eigentlich endet hier der Scope für %test

# der Aufruf funktioniert aber trotzdem
$code{code}->('bar2');