# perl v5.8.7 [MSWin32-x86-multi-thread]
> my @array= qw/een twee drie vier/;
> my $arrayref = \@array;
> print $arrayref;
ARRAY(0x2089584)
> pop @$arrayref;
vier
> my $temp = pop @$arrayref;
> print $temp;
drie