#!/usr/bin/perl
use POSIX;

$coin = "";
$numberOfFlips=100; #total number of times we flip
$flipsDone = 0;		#how many done so far
$heads=0;
$tails=0;
while ($flipsDone <$numberOfFlips    ) {
	if (rand()>0.5) {
		$coin = "H";
		$heads++;
	} else {
		$coin = "T";
		$tails++;
	}

	#print "The coin came up $coin on flip # $flipsDone\n";
	
	
	#$flipsDone=$flipsDone+1;
	$flipsDone++;
}

print "We flipped $heads heads and $tails tails.\n"; #challenge: print percentages