my ($x,$y,$z)= @_; my ($x)