#!/usr/bin/perl -w
use strict;
my @parties = (Liberal, Conservative (boo, hiss), NDP, Green); 
my $party = rand[1..4];
print $parties[$party];