my $iRand = int(rand($range)); #???