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

##</code><code>##

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

##</code><code>##

sub z
{
$_[0]++;
print $_[1]
}
sub f1
{
my ($x, $y) = @_;
z($x, $y);
}
my $x = 4;
f1($x, $x);


##</code><code>##

sub z
{
$_[0]++;
print $_[1]
}
sub f2
{
z($_[0], $_[1]);
}
my $x = 4;
f2($x, $x);