#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @AoA = (
      [qw(rot Himbeere sauer   )]
    , [qw(rot Kirsche sauer    )]
    , [qw(blau Brombeere sauer )]
    , [qw(blau Gummibeeren süß )]
    , [qw(grün Apfel süß       )]
);

my %HoAoA;

push  @{$HoAoA{$_->[0]}}, [@$_[1,2]] for @AoA;

print Dumper \%HoAoA;