open(SuitDoc,<STDIN>) || die "Cannot open file";

@suits = ("hearts","clubs","spades","diamonds");

foreach $suit (@suits)
{
    while(my $line = <SuitDoc>)
    {
    If($line =~ /($suit)/) 
        {
        print "$suit";
        }
    }
}