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
