while ( ($gk,$gv) = each %_get ){
     if ($gk =~ /^x/ && $gv > 0){
     out " x_getwert $gk: $_get{$gk} - \$gv($gv)<br>"; # debugausgabe
     my $holwert = substr $gk,1;
       get "t_bez==!$holwert"; "$db", "erghash";
        out "\$_amount_query($_amount_query)<br>"; # debugausgabe - zeigt wie erwartet 1 an...
        out $dbfeld1;  # zeigt was an
        while(get_next(erghash)){
         out $dbfeld1; # zeigt nix
        }    
    }
}