#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @AoA = ( [qw/red green/], [qw/blue green/], [qw/red yellow/], );
my %HoA; 
for (0..$#AoA) { $HoA{"item$_"} = $AoA[$_] };

print Dumper \%HoA;