Linux's Witness Ministry The Personal Web Pages of Chris X. Edwards ex-while.pl

#!/usr/bin/perl
#ex-while.pl

@DI=(1,2,3,4,5);
while ($DI[0] != $DI[4]) {
  for ($c=0; $c<=4; $c++) {
    $DI[$c] = int(rand (6) + 1);
    print $DI[$c]," ";
  }# end of for loop
print "\n";
@DI = sort (@DI);
} # end of while loop
print "yahtzee!!!\n";