#!/usr/bin/perl 
 
 
$roll = &rolldie; 
@count = (); 
@array = (1 .. 6000); 
print "@array\n"; 
foreach (1..6000) { 
        $roll = $rolldie; 
        &rolldie; 
        print $roll; 
        push (@count, $roll); 
        &tally; 
} 
print "@count\n"; 
print "ROLL     SCORE\n"; 
print "======================\n"; 
print sort (keys %tally), "\n"; 
print sort (values %tally), "\n"; 
########### subroutines begin here ############## 
 
#### subroutine1 ############################### 
sub rolldie { 
return 1 + int(rand(6)); 
}