http://qs321.pair.com?node_id=863472


in reply to if else in the other way

Another way: 
print qw(no yes)[$a == 6]

[download]

In Section Seekers of Perl Wisdom