method somemethod {
  my($v1, $v2) = @_;
  
  print "x1=$self.x1, x2=$self.x2\n";
  my($ret) = $self._othermethod($v1);
  ...