use strict;
use warnings;

my $code = 'print "Hello\n"';

print "BEFORE\n";
my $test;
$test->{a} = sub { eval $code};
print "BETWEEN\n";
$test->{a}->();
print "AFTER\n";