Select Code to Download

use Data::Dumper;
foo();
...
  $args[3]->{a}++;   # 1 -> 2 in z
  $args[4]->{a}++;   # 1 -> 2 in zz
}

$x = 4;
warn $x;
...
sub blah {
  $_[0] += 3;
}