use strict; use warnings; my (@RandomSet,$random_number, $element_of_array, $count); foreach(1..10){ $random_number = int(rand(1185)); $count=0; foreach $element_of_array (@RandomSet){ if ($random_number == $element_of_array){ $count++; } } push (@RandomSet,$random_number) if $count==0; } foreach $element_of_array (@RandomSet){ print "$element_of_array\n"; }