while ($game_hand < 12) {
    push @hand, splice @deck, rand @deck, 1;
    $game_hand++;
}