my @choices_spalte = lies_tabellen_zeilen($dbh, "adresstyp", "beschreibung");
...

 if ($browse eq "BrowseEntry"){
                    $feld->insert('end',$_) for (@choices_spalte);
                }
...
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 ();
    #chomp($ref_typ);
    $sth_typ->finish();
    return (\@{$ref_typ});


}