sub distinct_random_int{
   my($num, $start,$end) = @_;

   #return an arry of size $num
}