print $var ? 'yes' : 'no'

##</code><code>##

use Benchmark qw/cmpthese/;

our @values = (1,0,undef,50,'yes','no','0E0',0e0,0);

my $subs = {

    ifelse => sub {foreach(@values){
        my $x;
        if($_){$x = 'yes'}
        else  {$x = 'no'}
    }},

    trinary => sub {foreach(@values){
        my $x;
        $x = $_ ? 'yes' : 'no'
    }},

};

$_->() for values %$subs;

cmpthese( $ARGV[0] => $subs );