#!/usr/local/bin/perl
use strict;
use Data::Dumper;

my @arr;
my %hash;

my @arr=['rose','orange','green'];
$hash{"first"}=[@arr];
print STDERR Dumper(\%hash);