Select Code to Download

#!/usr/local/bin/perl
use strict;
...
my @arr=['rose','orange','green'];
$hash{"first"}=[@arr];
print STDERR Dumper(\%hash);

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

$hash = {
          'first' => [
                         'rose',
...
                        'red'
                      ]
        };