- or download this
my $message = $status == 2 ? 'HIGH'
: $status == 1 ? 'MODERATE'
: 'LOW'
print $message
- or download this
my %status_message = { 2 => 'HIGH', 1=>'MODERATE', 0=>'LOW' };
my $message = $status_message{ $status } || 'LOW';
- or download this
my @status_messages = qw( LOW MODERAGE HIGH );
my $message = $status_messages[$status] || 'LOW';