#!/usr/local/bin/perl

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent   = 1;

my @array1 = qw{rose orange green};
my @array2 = qw{blue red};

my %hash;
push @{$hash{q{first}}}, \@array1, \@array2;
print Dumper \%hash;

##</code><code>##

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