【Perl 】初心者コーナーPart5

0/1/2のどれかがそれぞれ入っている$a,$b,$cのうち、
１つだけが"1"を含んでいることを確かめるにはどうしたら
良いのでしょうか。
どうしてもif文を大量に組み合わせたものしか考えられないのですが
もっと頭の良いプログラムにできないものかと思いまして。