in reply to all binary combinations

Show your code.

In Section Seekers of Perl Wisdom