while ( $group->{$advert} > 0 ) {
            push( @rndselect, $advert );
            $group->{$advert}--;
        }#while

##</code><code>##

        push( @rndselect, ($advert) x $group->{$advert} );