Select Code to Download

sub f1
{
my ($x, $y) = @_;
z($x, $y);
}

sub f2
{
z($_[0], $_[1]);
}

sub z
{
...
my $x = 4;
f1($x, $x);

sub z
{
...
}
my $x = 4;
f2($x, $x);