my @list = (); 

foreach my $i (1..5) { 
  push @list, int(rand(50)+1);
}