Select Code to Download

DB<3> x $Count

0  ARRAY(0x55a8d92fb240)
   0  ARRAY(0x55a8d9613bb0)
      0  5

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

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

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