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