$ perl rand1.pl 7246281254938614119473194136957146644855362901505395617562308444592359441659779924940736387588266118823158415004985978328481067994672839164223678436588869 2 $ cat rand1.pl #!/usr/bin/perl -w use strict; use feature ':5.10'; use Crypt::Random qw( makerandom ); my $r = makerandom ( Size => 512, Strength => 1 ); print "$r\n"; srand($r); my @winners=("ruth","sheila"); my @correct=("ruth","martin","dee","zack"); my @composite = @correct - @winners; print "@composite \n"; $