Select Code to Download

@a= <>;

@a= <>;
foreach (@a) {
...
   ++$count;
   }
print "total of $count items is $total\n";

1
2
...
6
^Z
total of 4 items is 14