#!/perl/bin/perl.exe 
print qq~Content-type: text/html\n\n~; 
use strict; 
 
my @array = qw(Joe Fred Kevin John Paul Andy Mike Harry); 
my @new; 
 
@array = &randomize(@array); 
 
sub randomize { 
   my $r_num = int(rand(int(@array))); 
   push @new, $array[$r_num]; 
   delete $array[$r_num]; 
   &randomize if @array; 
   return (@new); 
} 
 
print "@array";

 my @ary = qw(a b c d e f); 
print $ary[rand @ary], "\n";