my $party_ix = rand @parties;
print $parties[ $party_ix ];