my @data = (
    [ qw( angry red ) ],
    [ qw( sick green ) ],
    [ qw( calm blue ) ],
    [ qw( worried purple ) ],
    [ qw( sad black ) ],
);

for (1, 4) {
    print join( ' ', $_, @{$data[$_]}, ($_%2) ? 'odd' : 'even' ), $/;
}

__END__
1 sick green odd
4 sad black even

##</code><code>##