foreach $suit ('s','h','d','c') { 
   for($i=1;$i<14;$i++) { 
     push(@card, CardPlay::SimpleCard->new(-suit=>$suit,-number=>$i)); 
   }
} 

$pile = CardPlay::SimpleCardPile->new(-contents=>\@card);
