@pile = shuffle( (@card) x $n );