@darius
my @a = ('pleasure dome decree', 'plumb Buck Mulligan'); print $a[rand @a];