It's customary to specify what error message you're getting.

• foreach @allcards {: Missing parens around @allcards.
• if( $allcards[$count] != @userinput[0] ) ||... Your conditional statement is cut short by a closing paren, and everything that comes after is a problem.

Those constructs are explained pretty clearly in perlintro and perlsyn.

Another issue: @somearray[1] is an array slice. While it's syntactically correct, it's semantically mistaken to use an array slice when you really mean to refer to a single element by its index. $somearray[1] would be the semantically proper way to do that.