What happens when you use Data::Dumper and dump $Count?

use Data::Dumper;

# do your select....

# then...
print Dumper $Count;
[download]

If there's a misunderstanding about the data structure that is making it hard to print it, this will given you insight.

thank you

one thing confuses me is that the query is ok, but perl not coverting into to string and print out, because when i use data dumper to print info, there no problem info comes

i tried to select with the actual location and results came

$VAR1 = [
          [
            1
          ]
        ];
Content-type: text/html
[download]

other country with no location also results come ok

$VAR1 = [
          [
            0
          ]
        ];
Content-type: text/html
[download]

What you've got there is an array reference with one element, which is another array reference with a single element. Change your code to this:

for my $total_info(@$Count) {
    print "$total_info->[0]\n";
}
[download]

In the for statement, you extract a single element of the array in a loop (the inner array reference). The print statement prints out the first element of the inner array reference.

Will you ever get more than one record returned per call? If not, you might consider not using fetchall_arrayref, as that's why you have an aref inside of a top-level aref. fetchall_* implies that you're expecting several records returned. If you only ever expect one piece of data returned per call, use fetchrow_arrayref.

This is not converting an array to a string. To do that, one would typically use the join function.

You're simply iterating over an array (reference) and printing out each element.

You've been here quite some time, yes? Why don't you have your expected output and actual output or errors listed in your question?

DB<3> x $Count

0  ARRAY(0x55a8d92fb240)
   0  ARRAY(0x55a8d9613bb0)
      0  5
[download]

for my $total_info(@{$Count->[0]}) {
   print $total_info,"\n";
}
[download]

print "Non-destructive = ", $Count->[0][0],"\n";
[download]

print "Double shift = ",shift @{shift @$Count} ,"\n";
[download]

The knee-jerk link whenever anyone makes even the barest mention of an array/hash structure of even the slightest complexity: the Perl Data Structures Cookbook (perldoc perldsc on the command line).