while (@hand < $num_to_deal) {
   return "no more cards" unless @cards;
   push @hand,$cards[int(rand(@cards))];
   @cards = grep{$_ ne $hand[$#hand]}@cards;
}