my @array = ("AOL", "Yahoo", "Ask Jeeves/Ask.com", "Alltheweb", "Alta Vista", "Lycos", "iWon", "Teoma", "Wisenut", "MSN", "Netscape", "Infospace", "Looksmart");
shuffle(@array);

my ($comp1, $comp2, $comp3, $comp4, $comp5) = @array[0..4];

print qq~
<input type="hidden" name="comp1" value="$comp1">
<input type="hidden" name="comp2" value="$comp2">
<input type="hidden" name="comp3" value="$comp3">
<input type="hidden" name="comp4" value="$comp4">
<input type="hidden" name="comp5" value="$comp5">
~;

##</code><code>##

my @array= param('aware02', 'aware03', 'aware04', 'aware05', 'aware06', 'aware07', 'aware08', 'aware09', 'aware10', 'aware11', 'aware12', 'aware13', 'aware14');