my @arr=['rose','orange','green'];
$hash{"first"}=[@arr];

##</code><code>##

my @arr = qw(rose orange green);
$hash{"first"}=\@arr;

##</code><code>##

push(@{$hash{first}}, qw(red blue));

##</code><code>##

#!/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'
                     ]
        };


##</code><code>##

$hash{first} = [];
push(@{$hash{first}}, \@arr);
...
@newarr = qw(red blue);
push(@{$hash{first}}, \@newarr);