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

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