#!/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++;
}
