http://www.perlmonks.org?node_id=458235


in reply to Generating all 5-card hands

The set of all five-card hands with a 5 is the set of all four-card hands in a deck missing a 5, plus a 5-card. The easy way would be to use glob: 
print "$_\n" while $_=glob '5,{A,2,3,4,6,7,8,9,10,J,Q,K}'
  .',{A,2,3,4,5,6,7,8,9,10,J,Q,K}'x3;

[download]
but it's not a truly iterative solution (it generates the whole set before beginning iteration). Consider Algorithm::Loops, or Iterating over combinations (found by Super Searching on combinations and iterator).
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom