Select Code to Download

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

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

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

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

my ($color, $fruit) = @{$hoa->{keytwo}}{'color', 'fruit'};

sub IDX_COLOR () { 0 }
sub IDX_FRUIT () { 1 }
my ($color, $fruit) = @{$hoa->{keytwo}}[IDX_COLOR, IDX_FRUIT];

use constant IDX_COLOR => 0;
use constant IDX_FRUIT => 1;
my ($color, $fruit) = @{$hoa->{keytwo}}[IDX_COLOR, IDX_FRUIT];