$/=$";$a[$_]++for<>;print/23/?'FULL HOUSE':/113/?'THREE CARD':/122/?'TWO PAIR':/1112/?'ONE PAIR':'NO HAND'for join'',sort@a