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:

#!/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";

Output:

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

Example 2:

#!/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";

Output:

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

My Personal Notes arrow_drop_up

Save