...
$self->{AlleNamen} = MySqlStatements::HoleNamen() unless defined $self->{AlleNamen};
$self->{AlleNamen}->execute();
...

sub HoleNamen {
    return <<"_EOF";
        SELECT
            *
        FROM
            meine_tabelle
_EOF
}