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

##</code><code>##

$sth->bind_columns(\@row{@Rcols});