package Foo;

$Foo::var1 = 'VAR_A';

my $pkg = '_eval_';
$Foo::var2 = <<"__END_EVAL__";
package $pkg;

print "VAR_B( \$${pkg}::var1 )\\n";
__END_EVAL__

eval $Foo::var2;