my $fieldnames = $sth->{NAME};

   while(my $row = $sth->fetch) {

    for (0 .. ( scalar @{ $fieldnames } -1 )) { $_ = '' unless defined
+; 

    $_ =~ s/\s//g;
   my $prop = $fieldnames->[ $_ ];
   my $val = $row->[ $_];
   $name->$prop($val);
   }
    }
    }