Select Code to Download

use warnings;
use strict;
...
my ($color, $fruit) = ( $hoa->{keytwo}->[$idx_color], $hoa->{keytwo}->
+[$idx_fruit] );

print "$color $fruit"; # prints "purple plum"