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";