sub foo {
  my $this = shift;
  my ($x, $y, $z) = @_;