BEGIN { print "$_ => $Foo::{$_}\n" foreach keys %Foo::; }