Perl - Function Rand

#!/usr/bin/perl
use strict;
use warnings;

my $cond = 50;

while($cond--){
   my $rand = int(rand(4));
   print "$rand\n";
}