Select Code to Download

my %idx = ();
my $val = 0;
...
    $val = int(rand($ulmt-1)+1);   # map range to (1..ulmt)
    $idx{$val} ||= 1 && push @num, $val;
}