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;