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