Answer for Intial question: set %var = $r(1,52)

More detailed possibility, per example given
2 hands, 5 cards each
Code:
 var %card = 1
while %card <= 5 {
  var %hand = 1
  while %hand <= 2 {
    while $istok(%deck,%draw,32) || !%draw {
      var %draw = $r(1,52)
      set %deck $addtok(%deck,%draw,32)
    }
    set $+(%,hand.,%hand) $addtok($($+(%,hand.,%hand),2),%draw,32)
    inc %hand
  }
  inc %card
}