#!/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);

##</code><code>##

my @newarr=['red','blue'];

##</code><code>##

$hash = {
          'first' => [
                         'rose',
                         'orange',
                         'green' 
                      ],
                      [ 'blue', 
                        'red'
                      ]
        };