Help for this page

Select Code to Download


  1. or download this
            while ( $group->{$advert} > 0 ) {
            push( @rndselect, $advert );
            $group->{$advert}--;
        }#while
  2. or download this
            push( @rndselect, ($advert) x $group->{$advert} );