foreach my $card (@allcards) {
 push @resthand, grep { $_ != $card } @userinput[0..6];
}