#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use DBI;
use Data::Dumper;

my $dbh = DBI->connect("dbi:mysql:database=db1","","");
$dbh->{mysql_enable_utf8} = 1;

my $sth = $dbh->prepare('select * from tbl1');
$sth->execute;
my $ar =  $sth->fetchall_arrayref;
$sth->finish;

print Dumper( $ar );

binmode(STDOUT, ':utf8');

my $str1 = $ar->[1]->[1];
print qq{"$str1" - },  (utf8::is_utf8($str1) ? 'UTF8' : 'ASCII'), qq{ \n}; 

my $str3 = $ar->[3]->[1];
print qq{"$str3" - },  (utf8::is_utf8($str3) ? 'UTF8' : 'ASCII'), qq{ \n};