if ( eqany( 'foo', available_cards() ) ) { ... 

sub eqany { $_[0] eq $_ && return 1 for $_[1] .. $_[$#_]; 0 }