Ver Más instrucciones sobre The Steps
1
 obtener datos de la matriz desde el programa principal . Otra matriz " new_array " contendrá los datos invertidos. 
 2 
 Eliminar el último elemento de la matriz inicial utilizando la función " pop" . 
 3 
 Añada que elemento que el primero en la nueva matriz con la función de "cambio " 
 
 4 Repita los pasos 2 y 3 hasta que la matriz inicial se convierte en vacío, . todos los elementos que se transfieren a la nueva en el orden inverso. 
 5 
 El programa de trabajo está por debajo de Perl # programa startsmy $ array = [ qw ( 1 2 6 9 7.4 25 12.6 2 6 ) ] ; # Ejemplo arraymy $ new_array = []; print " $ @ array \\ n "; reverse_array ( $ array , $ new_array ) ; print" @ $ new_array \\ n "; # impresión de la nueva arrayexit ; 
 
 sub reverse_array {my ( $ array , $ new_array ) = @ _ ; # Paso 1 . Leer arraywhile inicial ( @ $ array ) {my $ entrada = pop ( @ $ array ) ; # Paso 2 . eliminar el último elemento de la arraypush inicial @ $ new_array , $ entrada ; # Paso 3 . Añadir este elemento a la nueva matriz como la primera } } 
 6 
 La salida del programa es el siguiente1 2 6 7.4 25 9 12.6 2 6 <--- inicial array6 2 12.6 9 25 7.4 6 2 1 <--- nueva matriz arrayThe se invierte. 
 
 
          
