#!/usr/bin/perl -w
use strict;
use Player;
use Hand;
#...
my @pl;
push @pl, Player->new(name => Alice, strategy => aggressive);
push @pl, Player->new(name => Bob, strategy => conservative);
my $hand = Hand->new( players, \@pl );
$hand->play();