#!/usr/bin/perl

use strict;
use warnings;

# Population numbers
my $entity1 = 35000
my $entity2 = 41000
my $entity3 = 16000
my $entity4 = 18000
my $entity5 = 21000
my $entity6 = 45000
my $entity7 = 27000
my $entity8 = 10000
my $entity9 = 16000

# Sample constituents

my @sample = ($entity9,$entity9,$entity4,$entity2,$entity6,$entity1,$entity1)

sub probability {
  # Return the probability of @sample occurring at random based on the
  # populations declared
}