in reply to Ugly ways to declare global variables?

BEGIN {
 *{join "::", __PACKAGE__, "var"} = \${join "::", __PACKAGE__, "var"};
}

$var = "Hello, world\n";
print $var;

[download]

In Section Meditations