#!/your/perl/here

use strict;
use warnings;

my $rand = rand;

if ( $rand < rand ) # 1
{
	print "if 1: $rand\n";
}
elsif ( $rand < rand ) # 2
{
	print "elsif 2: $rand\n";
}
elsif ( $rand < rand ) # 3
{
	print "elsif 3: $rand\n";
}
else
{
	print "else 4: $rand\n";
}