my $quest = $dbh->prepare($statement, { RaiseError => 1 }) 
       or die "Cannot prepare statement! $DBI::errstr\n";
while(@row = $quest->fetchrow_array()) {
  $c1=shift @row;
  $c1=decode("utf-8", $c1);
  ...
}