for(keys %$row){utf8::decode($row->{$_}) if utf8::is_utf8($row->{$_})}