Perl | Array pop() Function

pop() function in Perl returns the last element of Array passed to it as an argument, removing that value from the array. Note that the value passed to it must explicitly be an array, not a list.

Syntax:
pop(Array)

Returns:
undef if list is empty else last element from the array.

Example 1:

filter_none

edit
close

play_arrow

link
brightness_4
code

#!/usr/bin/perl -w
  
# Defining an array of integers
@array = (10, 20, 30, 40);
  
# Calling the pop function
$popped_element = pop(@array);
  
# Printing the Popped element
print "Popped element is $popped_element";
  
# Printing the resultant array
print "\nResultant array after pop(): \n@array";

chevron_right


Output:

Popped element is 40
Resultant array after pop(): 
10 20 30

Example 2:

filter_none

edit
close

play_arrow

link
brightness_4
code

#!/usr/bin/perl -w
  
# Defining an array of strings
@array = ("Geeks", "For", "Geeks", "Best");
  
# Calling the pop function
$popped_element = pop(@array);
  
# Printing the Popped element
print "Popped element is $popped_element";
  
# Printing the resultant array
print "\nResultant array after pop(): \n@array";

chevron_right


Output:

Popped element is Best
Resultant array after pop(): 
Geeks For Geeks


My Personal Notes arrow_drop_up

Check out this Author's contributed articles.

If you like GeeksforGeeks and would like to contribute, you can also write an article using contribute.geeksforgeeks.org or mail your article to contribute@geeksforgeeks.org. See your article appearing on the GeeksforGeeks main page and help other Geeks.

Please Improve this article if you find anything incorrect by clicking on the "Improve Article" button below.