#!/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 ispopped_element";
  
# Printing the resultant array
print "\nResultant array after pop(): \n@array";

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

#!/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 ispopped_element";
  
# Printing the resultant array
print "\nResultant array after pop(): \n@array";

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