Subroutines en PERL

Hasta ahora, todos los "programas" capaces de escribir son bastante 'lineales', es decir que se ejecutarían de principio a fin, línea tras línea, sin ningún test o loop, todos en un bloque único.
Es posible de todos modos definir nuestras funciones (o procedimientos, o subroutines o como queráis llamarlas) en perl, y después llamarlas como se llaman las funciones normales del perl.

El modo de definir una función es éste:

sub nombre_de la_función {
contenidos;
de la;
función;
}

Dicha función será llamada como &nombre_de la_función si no se quieren añadir argumentos,…