#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

# diese Datei wird von extern aufgerufen
# mittels require test_reihenfolge.pl
# und dann testsub(\%over);

sub testsub {
        my ($over) = @_;
        if (1==1) {
                if (1==1) {
                        my @codes;
                        #
                        # genau hier sollen alle Deklarationen unten
                        # in den BEGIN Blöcken stattfinden
                        #
                        foreach my $sub (@codes) {
                                $sub->($over);
                        }
                        {
                                if (1==1) {
                                        say "hier findet eine x-beliebige Sache statt";
                                        BEGIN {
                                                push @codes,sub {
                                                        my ($over) = @_;
                                                        say "Hello1!";
                                                };
                                        }
                                }
                                if (1==1) {
                                        say "und hier auch";
                                        BEGIN {
                                                push @codes,sub {
                                                        my ($over) = @_;
                                                        say "Hello2!";
                                                };
                                        }
                                }
                                # hier kommen noch viele weitere Abschnitte
                        }
                }
        }
}