$ perl -E 'package Foo; local our $bar; package main; say for keys %Foo::'
bar