grep { $_ != $card } @userinput[0..6]

##</code><code>##

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