#!/usr/bin/perl -w

use strict;

my @array = ('words', 'will', 'go', 'here');
my @array2 = ('words2', 'will2', 'go2', 'here2');
   print "Content-Type: text/html\n\n";
print "$array[rand @array] - $array2[rand @array2]\n";