Select Code to Download

#!/usr/bin/perl

...
print "7 occured $num7 times, or ".($num7/$count)."%.\n";
print "8 occured $num8 times, or ".($num8/$count)."%.\n";
print "9 occured $num9 times, or ".($num9/$count)."%.\n";