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