sub HoleNamen { my $self = shift; my $sql = <<"_EOF"; SELECT * FROM meine_tabelle _EOF $self->{AlleNamen} = $self->dbh->prepare( $sql ); }