my @choices = lies_tabellen_zeilen($dbh, "adresstyp", "beschreibung");
...
sub lies_tabellen_zeilen{
    my ($dbh, $tabellen_name, $spalten_name) = @_;
    my $sth_typ  =$dbh->prepare ("select $spalten_name from $tabellen_name");
    $sth_typ->execute();
    my $ref_typ = $sth_typ->fetchall_arrayref ();
    $sth_typ->finish();
    return (@{$ref_typ});


}