#!/usr/bin/perl -w
use strict;

use Devel::Peek qw(Dump);

BEGIN {
    my $x;
    sub begin {
        ++$x;
    }
}

sub justmy {
    my $x;
    ++$x;
}

sub ifmy {
    my $x if 0;
    ++$x;
}

{
    my $x;
    sub static {
        ++$x;
    }
}

sub nest {
    my $x;
    sub inner {
        ++$x
    }
}

sub gen {
    my $x;
    return sub { ++$x };
}

*insert= gen();

Dump $_
    for( \&begin, \&justmy, \&ifmy, \&static, \&inner, gen(), \&insert );