sub winner {
	my $match;
	my (@hand) = (@_);
	foreach (@hand) {
		if ( /^(A|J|K|Q|2|3|4|5|6|7|8|9|10) of (clubs|diamonds|spades|hearts)/  ){
			print $&, "\n";
		}
	}
}