print $parties[ rand @parties ];


##</code><code>##

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