This is a contained system and this will save more headaches than create. Simply put, we want to access information in once place that the calling namespace has. With Perl there are always better ways to do things. I don't think it is wrong however to access, in a contained system, information that you know will be there. The section is carefully commented and the code is pretty clear (at least it is now with your assistance):

my ($pkg) = caller;
my $value1 = ${$pkg . "::value1"};
my $value2 = ${$pkg . "::value2"};
[download]

I thank you for your help. This resolves my issue.