Los argumentos pasados a una subrutina están disponibles
dentro del bloque via el array especial @_.
El primer argumento es $_[0], el segundo $_[1], etc.
$_[0] es un alias de la variable pasada como primer argumento y su modificación conlleva
la modificación de la variable:
~/perltesting/lhp$ cat -n args.pl
1 use Modern::Perl;
2 use Test::More 'no_plan';
3 sub one { $_[0] = 4; }
4
5 my $a = 2;
6 one($a);
7 say $a;
8 is $a, 4, '$a es 4';
Casiano Rodríguez León
