sub somemethod {
  my($self, $v1, $v2) = @_;
  my($x1) = $self->{'key1'};
  my($x2) = $self->{'key2'};

  print "x1=$x1, x2=$x2\n";
  my($ret) = $self->_othermethod($v1);
  ...

##</code><code>##

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