my $stuff;
BEGIN {
   $stuff = undef;
   ...
   ...
   ...
   ...  Some complex code to initialize $stuff.
   ...
   ...
   ...
}