Select Code to Download

$r=(grep!$$_++,@a)[rand@a] #evil

# create a counter to store the number of times the variable has
# been encountered.
...
    $counts{$random_element}++;
}