in reply to Multiple if-else statements using C-style ternary operator

An even more concise coding doesn't use any if logic at all.
my @status_text = qw(LOW MODERATE HIGH);
my $status = 2;
print $status_text[$status];

[download]

In Section Seekers of Perl Wisdom