#!/usr/bin/perl
use POSIX;

$coin = "";
$numberOfFlips=100; #total number of times we flip
$flipsDone = 0;		#how many done so far
%perSideCount=();

while ($flipsDone <$numberOfFlips    ) {
	$roll = floor(rand(6))+1;
	
	$perSideCount{$roll}++;

	$flipsDone++;
}

foreach $face (sort keys %perSideCount) {
	print "$face  - ";
	print $perSideCount{$face};
	print "\n";
}