Select Code to Download

my ($idx_color, $idx_fruit) = (0,1);

my $hoh =
  {
...
    keytwo => { color => 'purple',
                fruit => 'plum' }
  };

my ( $color, $fruit ) = @{ $hoh->{ keytwo } }{ qw( color fruit ) };

my $aoh =
  [
...
    { color => 'purple', fruit => 'plum' },
  ];
my ( $color, $fruit ) = @{ $aoh->[ 1 ] }{ qw( color fruit ) };

my @fields = qw( color fruit );
my $aoh;

@{ $aoh->[ @$aoh ] }{ @fields } = @$_ for ( [ qw( green apple ) ],
                                            [ qw( purple plum ) ] );