これはどうか
print "hoge\n" if grep {$str eq $_} ('ほげ', 'ふが', 'もが')