perl 解决mysql utf8中文乱码 问题

mysql utf8 中文问题:
zabbix:/root/sbin# cat a1.pl 
use DBI;
my $dbUser='DEVOPS';
my $user="root";
my $passwd="kjk123123";
my $dbh  = DBI->connect("dbi:mysql:database=DEVOPS;host=192.168.11.185;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;
##防止utf-8中文乱码
@arr2=();
#$dbh->do("SET NAMES utf8");
my $hostSql = qq{select  IP,INFO,ENV from  machine_info where env='esx-192.168.4.41'};
my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9);
my $selStmt = $dbh->prepare($hostSql);
$selStmt->execute();
$selStmt->bind_columns(undef, $a1, $a2, $a3);
print "$a1,$a2,$a3
";
print "11111111111111111
";
 while( $selStmt->fetch() )
 { push (@arr2, "$a1  $a2  $a3
" );
 };
print @arr2;


此时乱码

zabbix:/root/sbin# perl a1.pl 
,,
11111111111111111
192.168.11.134  BI?????????  esx-19.16.4.41



开启utf8:
$dbh->do("SET NAMES utf8");
zabbix:/root/sbin# perl a1.pl 



或者:

zabbix:/root/sbin# cat a1.pl 
use DBI;
use Encode;
my $dbUser='DEVOPS';
my $user="root";
my $passwd="kjk123123";
my $dbh  = DBI->connect("dbi:mysql:database=DEVOPS;host=192.168.11.185;port=3306",$user,$passwd,{mysql_enable_utf8 => 1}) or die "can't connect to database ". DBI-errstr;
##防止utf-8中文乱码
@arr2=();
#$dbh->do("SET NAMES utf8");
my $hostSql = qq{select  IP,INFO,ENV from  machine_info where env='esx-192.168.4.41'};
my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9);
my $selStmt = $dbh->prepare($hostSql);
$selStmt->execute();
$selStmt->bind_columns(undef, $a1, $a2, $a3);
print "$a1,$a2,$a3
";
print "11111111111111111
";
 while( $selStmt->fetch() )
 {$a2=encode_utf8($a2); push (@arr2, "$a1  $a2  $a3
" );
 };
print @arr2;
zabbix:/root/sbin# perl a1.pl 
,,
11111111111111111