Help for this page

Select Code to Download

Select or download this

my $saved = pop @array;
print "Now we have @array and I have saved $saved\n";
$saved = pop @array;
print "Now we have @array and I have saved $saved\n";

Select or download this

$_ = pop @arr;
print "Value popped is $_\n";