$Package::{$_} = sub {...};

# config
our @AutoGeneratedSubroutineNames = qw( foo bar );

# dann irgendwo weiter unten...
for my $subName ( @AutoGeneratedSubroutineNames ) {

  # verankere vorgenerierte Subroutinen ueber symbolische Referenz
  # in der Symboltabelle (Sub::Install ist leider kein Standardmodul):
  no strict 'refs';
  *$subName = sub { my $self = shift; $self->foobar($subName, @_); };

} # for @AutoGeneratedSubroutineNames

package BeginTest;

use strict;
use warnings;

my @ROUTINES = qw(echo);

BEGIN {
   for my $sub (@ROUTINES) {
      no strict 'refs';
      *{"$sub"} = sub { shift if $_[0] eq __PACKAGE__; print $_[0]; };
   }
}

1;

package BeginTest;

use strict;
use warnings;

use constant ROUTINES => qw(echo);

BEGIN {
   for my $sub (ROUTINES) {
      no strict 'refs';
      *{"$sub"} = sub { shift if $_[0] eq __PACKAGE__; print $_[0]; };
   }
}

1;

use strict;
use warnings;
use lib '.';
use BeginTest;

BeginTest->echo("Hello World!\n");

use constant DEBUG     =>  0;
use constant INFO      =>  1;
use constant NOTICE    =>  2;
use constant NOTE      =>  2;
use constant WARNING   =>  3;
use constant ERROR     =>  4;
use constant ERR       =>  4;
use constant CRITICAL  =>  5;
use constant CRIT      =>  5;
use constant ALERT     =>  6;
use constant EMERGENCY =>  7;
use constant EMERG     =>  7;

use constant LEVELS => {
   DEBUG     =>  0,
   INFO      =>  1,
   NOTICE    =>  2,
   NOTE      =>  2,
   WARNING   =>  3,
   ERROR     =>  4,
   ERR       =>  4,
   CRITICAL  =>  5,
   CRIT      =>  5,
   ALERT     =>  6,
   EMERGENCY =>  7,
   EMERG     =>  7,
}

BEGIN {
   for my $level (keys LEVELS) {
      no strict 'refs';
      my $sub = lc($level);
      *{"$sub"} = sub { my $self = shift; $self->_print($level, @_); };
   }
}

my @ROUTINES;
BEGIN {
  @ROUTINES = qw(echo);
  ...
}