>perl -E 'for (1..2){say "In loop $_"; my $z=$_+20; x($_); sub x{my $y=$_[0]; say "In Sub. Param= $y. z=$z"}}'
In loop 1
In Sub. Param= 1. z=21
In loop 2
In Sub. Param= 2. z=21