use warnings;
use strict;

my %table = (
    1 => { emotion => 'angry'   , color => 'red' },
    2 => { emotion => 'sick'    , color => 'green' },
    3 => { emotion => 'calm'    , color => 'blue' },
    4 => { emotion => 'worried' , color => 'purple' },
    5 => { emotion => 'sad'     , color => 'black' },
);

for my $number (2, 5) {
    my $even = ($number % 2) ? 'odd' : 'even';
    print "$number $table{$number}{emotion} $table{$number}{color} $even\n";
}

__END__

2 sick green even
5 sad black odd