$hand11 = $cards[rand(@cards)];
@cards1 = grep{$_ ne $hand11}@cards;
$hand12 = $cards1[rand(@cards1)];
@cards2 = grep{$_ ne $hand12}@cards1;