$ perl -e'BEGIN{@ns{keys %::} = ()}; $foo = "bar";@names = grep {!exists $ns{$_}} keys %::; print ${*foo{SCALAR}} ,$/'
bar
$