perl mysql utf8で昇順にした所、文字化け。

Question

前提・実現したいこと

文字化けせずに表示したい。
Perlをmysqlでdesc順にするsql文を書いた所文字化けが発生しました。

発生している問題

文字化け

該当のソースコード

my $sth =$dbh->prepare("select * from blog order by `no` DESC");
$sth->execute;
while (my @ary = $sth->fetchrow_array){
	#encode('utf8',@ary);
	print <<"EOF"; 
		<h2>・$ary[1]</h2>
		$ary[2]<br>
		$ary[3]<hr>
EOF
}

試したこと

phpmyadminで全体の文字コードの情報を確認した。
その結果、utf8かutf8mb64しかなかった。
テーブルの文字コードもutf8にし直した。

補足情報（FW/ツールのバージョンなど）

xrea plusのサーバー

宜しくお願い致します。

Answer 1

肝心な connect 部分のコードがないですね。
おそらく DBI を使っているのだと思いますが、手っ取り早いのがよければ、conecct 後に以下を追加で直るかも、です。

$dbh->do("set names utf8");

まじめにやるなら、connect のオプションで mysql_enable_utf8 => 1 を指定して、utf8フラグを立てて実装ですね。
その場合には、KojiDoi さんが書かれているリンク先がとても参考になると思います。

Answer 2

perlでの日本語の取り扱いの要諦については以前の回答でまとめたことがあります。参考にしてください。
https://teratail.com/questions/127212