use vars qw|$myvar|;
$myvar = "...";