#! 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;

##</code><code>##

17:39 >perl 994_SoPW.pl
{ key1 => [["a", "e", "i", "o", "u"], ["x", "y", "z"]] }
{ key1 => [["a", "e", "i", "o", "u"], ["x", "y", "z"], "abc"] }

17:39 >