my $str="17:43:33:21:23:19:27:6";

##</code><code>##

%hash=(17=>43,
       33=>21,
       23=>19,
       27=>6);

##</code><code>##

scalar(grep/$hash{$key}/@ary)==$key;

##</code><code>##

my $str="17:43:33:21:23:19:27:6";
my %hash=split/:/,$str;
foreach my $k(keys %hash)
{
    push (@ary, map{$hash{$k}}(1..$k));
}
my $adId=$ary[int(rand(100))];