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