Or an array of arrays:

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
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)