#!/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); #### my @newarr=['red','blue']; #### $hash = { 'first' => [ 'rose', 'orange', 'green' ], [ 'blue', 'red' ] };