my $rand = int(rand(4));
if ( 0 == $rand ) {} elsif ( 1 == $rand ) {} … etc