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