#!/usr/local/bin/perl 

# collect the random numbers 
$count = 1; 
while ($count <= 100) { 
    $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"); 
   $count++; 
} 