use strict;
use warnings;

package foo;
our $var = 'got it';

package main;
my $pkg = 'foo';
my $v = 'var';
print ${$main::{$pkg.'::'}{$v}};