Running a similar query on my system with the perl debugger shows this structure:
DB<3> x $Count
0 ARRAY(0x55a8d92fb240)
0 ARRAY(0x55a8d9613bb0)
0 5
This change to your code displays the expected "5":
for my $total_info(@{$Count->[0]}) {
print $total_info,"\n";
}
Update: If you want to print the value directly, without a loop:
print "Non-destructive = ", $Count->[0][0],"\n";
Update: Another way to directly print the content (Destructive, and NOT RECOMMENDED):
print "Double shift = ",shift @{shift @$Count} ,"\n";
"Imaginary friends are a sign of a mental disorder if they cause distress, including antisocial behavior. Religion frequently meets that description"