elsif ( ( $rand < rand ) { print "elsif2: $rand\n"; }