$a[$_]++for glob<>;print/3/?/2/?'FULL HOUSE':'THREE CARD':/2/?($'=~2?TWO:ONE).' PAIR':'NO HAND'for"@a"