#!/usr/bin/perl

# the folllowing check your code for you
# enforce some good behaviour (like declaring variables)
# and catch a lot of finger pilotage errors
use warnings;
use strict;

# here I declare some variables I am going to use
# $ is a scalar (string, number, or a reference to another variable)
# @ is an array of scalars
# % is an associative array or hash, values looked up by a unique key
my (    $case_number,
        $head_count,
        @player,
        $spoke_first,
        %player_said,
        $round
    );