my $aref = $hoa->{keytwo};
my ($color, $fruit) = @{$aref}[$idx_color, $idx_fruit];