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

print "Please enter a number between 1 and 5 (inclusive): ";
my $number = 0;
while ($number !~ /^[1-5]$/) {
    $number = <STDIN>;
    chomp $number;
}

my @colours  = qw( _ Red   Green Blue Purple  Black );
my @emotions = qw( _ Angry Sick  Calm Worried Sad );
my $even_odd;
if (0 == $number % 2) {
    $even_odd = 'Even';
} else {
    $even_odd = 'Odd';
}

print join '. ', $colours[$number], $even_odd, $emotions[$number], "\n";