my $rand = 0;
$rand = int rand($.) until $rand != 0;