Select Code to Download

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

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

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

#!/usr/bin/perl

...
                     ]
        };

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