$values = Encode::encode ("ISO-8859-1", $hash_ref->{$datensatz_id}->{$zeilen_bezeichnung});

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});


}

$choices_spalte->[1]->[0]

                if ($browse eq "BrowseEntry"){
                    my $counter;
                    foreach my $zeile(@{$choices_spalte}){
                        $counter++;
                        foreach (@{$zeile}){
                            $feld->insert($counter,$_) 
                          }
                        }
                }