use strict;
use warnings;

my $stuff1;
my $stuff2 = undef;
my $stuff3;
my $stuff4;
BEGIN
{
   $stuff3 = undef;
}
INIT
{
   $stuff4 = undef;
}

BEGIN
{
   # hypothetical initialization, creation going on.
   $stuff1 = 'stuff1 stuff';
   $stuff2 = 'stuff2 stuff';
   $stuff3 = 'stuff3 stuff';
   $stuff4 = 'stuff4 stuff';
}

print "stuff 1: $stuff1\n";
print "stuff 2: $stuff2\n";
print "stuff 3: $stuff3\n";
print "stuff 4: $stuff4\n";