@red          = qw(red french_red japanese_red);
@french_red   = qw(red french_red japanese_red);
@japanese_red = qw(red french_red japanese_red);