@dsetcols=[];

##</code><code>##

  @dsetcols=();

##</code><code>##

  @fieldnames = split(/,/, $fnames);