#! perl
use strict;
use warnings;
use Data::Dump;

my @array1 = qw( a e i o u );
my @array2 = qw( x y z );
my %hash   =
(
    key1 => [ \@array1, \@array2, ],
);

dd \%hash;
push @{ $hash{key1} }, 'abc';
dd \%hash;