use strict;
use warnings;

use Data::Dumper;

my $parray = [ qw( a b c ) ];

printf "Array before change is:  %s\n", Dumper($parray);

my $phash = {
    'array' => $parray,
};

printf "Hash before change is:  %s\n", Dumper($phash);

push @$parray, 'd', 'e', 'f';

printf "Array after change is:  %s\n", Dumper($parray);
printf "Hash after change is:  %s\n", Dumper($phash);