#!usr/bin/perl

use strict;
use warnings;

my %probs;
foreach( 1..10 ) { 
    print "Coin toss $_\n";
    my $value = &coin_toss;
    $probs{ $value }++;
    print "Value = $value\n\n";
}

print "Total Heads = $probs{ heads }\n";
print "Total Tails = $probs{ tails }\n";


sub coin_toss {
    my @coin = qw( heads tails );
    my $index = rand @coin;
    return $coin[ $index ];
}