use strict;
package Foo;

use vars qw($str); # $Foo::str created
$str = 'foo str';

package main;

my $pack = "Foo::";
my $var = "str";
print ${*{${$main::{$pack}}{$var}}{SCALAR}};
__END__
foo str