#!/usr/bin/perl
use strict;
use warnings;

my $preauth=3;

print qw(No Yes)[$preauth]; # No output at all!

print ($preauth eq '1' ? "Yes" : "No"); # Prints No