Hrm, I'll try to wrap my head around that, cutting them up and where to is kind of the issue. I was hoping to do something like:

my $last;
my $count;


my $toss = headsortails(); # returns either 0 or 1 (H or T)

if ($toss == $last) {

$count++;
} else {
$last = $toss;
$c{$count}++;
}

if you had a bunch of variables like $c1, $c2
[download]

Thought the implementation didn't really work out.