...
$sth =$dbh_r->prepare("SET character_set_results='utf8'");
$sth->execute();
$sth =$dbh_r->prepare("set character_set_connection='utf8'");
$sth->execute);  
...
Encode::from_to($row->[1], "utf-8", "cp1251");
...