I don't fully understand your question. But here's a code snippet that will generate the %deck hash without so much typing:

%deck=map {
  $t=($_%13);
  sprintf("%s of %s", 
      $t>8?(('Jack','Queen','King','Ace')[$t-9]):($t+2),
      (('spades','hearts','clubs','diamons')[$_/13]))
    => (2..9,(10)x4,11)[$t] } 0..52
[download]