my @array = qw(b c d e f g h i j k l m n p r s t x z);
srand(time ^ $$);
@array = sort { return (int(rand(3)) - 1); } @array;

my @array2 = qw(a e i o u y);
srand(time ^ $$);
@array2 = sort { return (int(rand(3)) - 1); } @array2;

print "content-type:text/html\n\n";
print qq~$array[0]$array2[0]$array[1]$array2[1]$array[2]$array2[2]~;