my %spaltennamen = ();
    my $cnt = 0;

    my $statement="SELECT * FROM filialen";
    my $sth = $dbh->prepare($statement) or die("Kann keine Abfrage ($statement) starten:$DBI::errstr");
    $sth->execute;
    my $row;
    while ($row = $sth->fetchrow_hashref)
    {
        my %temp=%$row;
        $temp{'entfernung'} = &entfernung($temp{'bgrad'},$temp{'lgrad'}, $standort{'bgrad'},$standort{'lgrad'});
        if ($temp{'entfernung'} <= $eingang{'umkreis'}){
            foreach my $key (keys %temp){
                  $ausgabe{'data_'.$key} .= $temp{$key}."|";
                  $spaltennamen{$key}++;
            }
        }
        $ausgabe{'error'} = 0;
        $cnt++;
        last if $cnt > 1000;
    }
    $sth->finish;