Select Code to Download

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

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