how do I shorten this code

[itshardtogetone]

Hi, 
I wish to shuffle 8 decks of cards, so how do I shorten this code :-

use Algorithm::Numerical::Shuffle qw /shuffle/;
@eightdecks = shuffle 
(1..10,"J","Q","K",1..10,"J","Q","K",1..10,"J","Q","K");#how do I repeat 1 to K 
32 times
print @eightdecks ;