my %fields = $_read_sth->{NAME};
print "$fields{Account},$fields{Symbol},....\n";