perl | función unshift()

La función unshift() en Perl coloca la lista dada de elementos al comienzo de una array. Cambiando así todos los valores en la array a la derecha. Múltiples valores pueden ser desfasados ​​usando esta operación. Esta función devuelve el número de elementos nuevos en una array.
 

Sintaxis: unshift(Array, List)
Devuelve: Número de elementos nuevos en Array

Ejemplo 1: 
 

#!/usr/bin/perl
   
# Initializing the array
@x = ('Geeks', 'for', 'Geeks');
   
# Print the Initial array
print "Original array: @x \n";
   
# Prints the number of elements
# returned by unshift
print "No of elements returned by unshift: ",
                   unshift(@x, 'Welcome', 'to');
   
# Array after unshift operation
print "\nUpdated array: @x";

Original array: Geeks for Geeks 
No of elements returned by unshift: 5
Updated array: Welcome to Geeks for Geeks

Ejemplo 2: 
 

#!/usr/bin/perl
   
# Initializing the array
@x = (10, 20, 30, 40, 50);
   
# Print the Initial array
print "Original array: @x \n";
   
# Prints the number of elements
# returned by unshift
print "No of elements returned by unshift: ",
                   unshift(@x, 70, 80, 'Geeks');
   
# Array after unshift operation
print "\nUpdated array: @x";

Original array: 10 20 30 40 50 
No of elements returned by unshift: 8
Updated array: 70 80 Geeks 10 20 30 40 50