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