title: How can I generate all subsets of a list in Perl?
body: <p>I have a mathematical set in a Perl array:  (1, 2, 3).  I'd like to find all the subsets of that set:  (1), (2), (3), (1,2), (1,3), (2,3).</p>
  
  <p>With 3 elements this isn't too difficult but if set has 10 elements this gets tricky. </p>
  
  <p>Thoughts?</p>