I am wondering how to use the following subroutines found in the article: Permutations and combinations, and was wondering how I can change it slightly so that for each combination, there IS replacement. Right now, the code just does combinations without replacement. I am not sure how to do this in Perl. Any help would be greatly appreciated!