my $this= shift;
 # ... do some checking here.
my ($x,$y,$z)= @_;