sub IDX_COLOR () { 0 }
sub IDX_FRUIT () { 1 }
my ($color, $fruit) = @{$hoa->{keytwo}}[IDX_COLOR, IDX_FRUIT];