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">
~;