use strict;	# just to prove my point
package hidden;
$hidden::foo = "This is the first time I've been used.";

package main;
print $hidden::foo;