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