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