use Data::Dumper;
my @array = ('test', 'demo', 'work');

my $hashref = {'key'=>['value', [@array], 'add']};

push @{$hashref->{'key'}->[1]}, 'home';
push @{$hashref->{'key'}->[1]}, 'cars';

printf "I popped \'%s\'.\n\n", pop @{$hashref->{'key'}->[1]};
print Dumper(\%$hashref);