$array = $array[ rand @array ];
$array2 = $array2[ rand @array2 ];

##</code><code>##

#!/usr/bin/perl
#use strict;

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