#!/usr/local/bin/perl
# collect the random numbers
$count = 1;
while ($count <= 1000) {
	$randnum = int( rand(10) ) + 1;
	$randtotal[$randnum] += 1;
	$count++;
}
# print the total of each number
$count = 1;
print ("Total for each number:\n");
while ($count <= 10) {
	print ("\tnumber $count: $randtotal[$count]\n");
#	$sum+=$randtotal[$count];
	$count++;
}
#print("The total numer of extractions is $sum\n");
	print ("\tnumber ",--$count,": [ $randtotal[$count] ]\n");


print ('press ENTER to EXIT');
$in = <STDIN>;