$callpackage = 'YourPackage;
    $pkg = 'MyPackage';
    $sym = 'var';
    ${"${callpkg}::$sym"} = \${"${pkg}::$sym"};