$_[1]
sub fun1 { $_[0]=7; # altera el 1er parámetro en el llamador } $a = 5; &fun1($a); print $a; # imprime: 7