#!/usr/bin/perl -w use strict; my @parties = qw(Liberal Labour Greens Democrats National One-nation); my $party = rand(6); print "$parties$party\n"; I like my new lines. :-)