Select Code to Download

-w;
use strict;
...
print "\n";
print "The number of heads total is:\n";
print $head_count;

HHHHH H HH H   H H    H H    H    H    H    HH    H HH  H     H H     
+  HHHH H H H HHHHHH HH HHHHH  H   HHH HHHHHH H HHH   H HH HH         
+  H H    H HHHH HH HH H          H HH    H H HH HHH H   HH  H

...
5|1|2|1|1|1|1|1|1|1|1|2|1|2|1|1|1|4|1|1|1|6|2|5|1|3|6|1|3|1|2|2|1|1|1|
+4|2|2|1|1|2|1|1|2|3|1|2
The number of heads total is:
88