print AUSGABE join(";",@{$sth->{Name}}),"\n";