my %row =();
$sth->bind_columns(map {\$row{$_}} @Rcols);
while (@values=$sth->fetchrow_arrayref) {
    @values = '';