my $random=int rand($max+1);
   unless($random eq $max)