my $val = $Some::Nonexistent::Pkg::variable; 
my $val;
print $val;