You could shorten the code (Save keystrokes) by replacing

 foreach (@ {$count}) {
      print "$_! \n";
   }
[download]

with

 print "$_! \n"  for @$count;
[download]

If you are just getting started with Array references the link to "Converting an Array Reference into an Array" may provide enlightenmet.