#!/usr/bin/perl

use warnings;
use strict;

use Data::Dumper;

my %hash;
my @arr = qw(rose orange green);
$hash{"first"}=\@arr;
push(@{$hash{first}}, qw(red blue));

print Dumper(\%hash);

-----

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